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MAITRISEZ LA PROGRAMMATION 


Basic + 

80 routines pour Apple* 

par Michel Martn 

144 pages - 95,00FF 

Pour “Muscler” votre Apple,créer vos 
propres jeux d'animation et maîkiser la 
technique du dessin animé. 


Techniques de programmation 
sur Apple H* 

par René Beile 

168 pages - 95,00 FF 

Pour créer des logiciels plus puissants et 
plus structurés grâce à des astuces illus- 


trées de nombreux programmes. GUIDE 


2 / PRATIQUE 
L'Apple et ses fichiers* = 
par Jacques Boisgontier 

176 pages - 95,00 FF 

Les commandes du Système d'Exploitation 

Disque, les instructions du Basic Applesoft 

et des fichiers séquentiels et à accès 

direct puis leur utilisation à l'aide de 

programmes divers. 


REALISEZ VOS APPLICATIONS 


Destination aventure sur Apple* 
par Delton T. Hfom 

246 pages - 140,00 FF 

Utilisez les instructions, les explications et 
les astuces de programmation de ces 4 
jeux d'aventure en Basic pour créer les 
vôtres. 


La programmation des 
d'arcades* 

par Jear-buc Fischer 

300 pages - 140,00 FF 

Pour générer sur votre Apple des effets 
spéciaux époustouflants grâce à des 
Programmes en Basic eten Assembieur. 


jeux 


Apple, 
experts* 
par René Descamps 

224 pages - 120,00 FF 

Pour étudier toutes les étapes logiques de 
la pensée humaine et créer un micro 
système expeit en Basic. 


logique et systèmes 


sur Apple Il plus, lle et lic 


EGALEMENT CHEZ VOTRE LIBRAIRE ET EN BOUTIQUE SPECIALISEE 


Apple, modems et serveurs* 
par Âlain Manatte 

224 pages - 120,00 FF 
Apprenez à vous servir d'un modem,à 
utiliser un logiciel de communication, à 
connaître les principaux réseaux et vous 
familiariser avec les outils télématiques. 





Diététique sur Apple* 


par {M Jego et M Lichtenberger 

224 pages - 120,00 FF 

Pour calculer votre surface corporelle et 
découvrir votre métabolisme énergétique 
grâce à votre Apple. 


EXPLOITER LE SYSTEME 
ET L'ASSEMBLEUR 


Assembleur de l'Apple*** 

par N. Bréaud -Pouliquen 

240 pages - 120,00 FF 

Pour apprendre à obtenir rapidité d'éxé- 
cution et économie de mémoire,voici une 
initiation à l’assembleur (6502 - 65C02) 
illustrée de nombreux programmes. 


ProDos sur Apple Ile et lic* 

par Francis Verscheure 

104 pages -85,00 FF 

Découvrez ProDos pour gérer des cata- 
logues et des fichiers si vous voulez 
profiter de ce système performant. 


Clefs pour l'Apple Il** 

144 pages - 105,00 FF 

Clefs pour l'Apple Ile et 

lle 65C02°* 

172 pages - 130,00 FF 

par N. Bréaud -Pouliquen 

Pour accéder rapidement à la syntaxe des 
commandes, aux codes caractères, aux 
codes machine... et des trucs utiles 
lorsque vous programmez. 


Les ressources de l'Apple Ilc*** 
par N. Bréaud Pouliquen 

108 pages - 85,00 FF 

Pour découvrir les avantages du Iic,utiliser 
le logiciel de base du système et pro- 
grammer asticieusementf la souris. 


** sur Apple il plus et lfe 
** sur Apple Ilc et lle 65C02 
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Des atouts pour votre Apple 



















Vous avez un 
traitement de texte 
et une ImageWriter, 
alors. 


Prormat Jl 


augmentera considérablement les possibilités 
d'impression de votre logiciel, Vous pouvez 
obtenir une justification droite, gauche, 
totale, centrée, ou encore page Palre à droite 
et impaire à gauche dé façon automatiqué. À 
noter que la justification n'est pas pertirbée 
pâr ‘les caractères qu type ‘é' ou ‘5’, Le 
style d'impression peut passer de la simpie à 
1a double largeur, de gras ou souligné & 
normal, en proportionnel et au sein d'une même 
digre sans perte de justification. P-Format ]{ 
c'est aussi : un mode mathématique et un mode 
graphique grâce à la police programmée, 


Editeur 
plein écran 


Apple J[+, - P: EE 
Ve et À E L= 


.Listez Vos programmes Basic … 
 enavanteten arrière. Modifiez, 
insérez, effacez des caractères 

en plein écran sans relire les 
lignes. Recherchez toute 
chaine de caractères. 
Choisissez vous-même les 
codes de contrôle d'EPE. 
Modifiez EPE : le fichier source 













































Apple ][+ 
Apple //e 











1C+ 
[le 


[le EN KIT 


Accompagné d'une cinquantaine de pages 
de documentation, Disk Manager permet 
de recréer les commandes du Dos, redéfi- 
nir l'organisation d'une disquette, grâce à 
un jeu d'instructions qui en fait un langage 
simple d'accès à la disquette. M offre éga- 
lement un programme d'édition à l'aide de 
commandes évoluées. Quatre utilitaires 
figurent aussi sur la disquettes : Utili- 
disque (réparation du disquette détruite, 
vérification.…), Ultra-copie (pourun | | re ReT 
backup très rapide), Edicat (édition du 
catalogue, ...) et Multi-disque. 

























40 ou 80 colonnes sur et 
faire un nettoyage mémoire {garbage 
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Editorial 


Il n'est pas facile d'être honnête et de maintenir certains standards dans un monde où le souci 
d'intégrité est souvent pris pour de la naïveté. Comme vous avez pu le constater, Pom's est une revue 
comportant fort peu de publicité. Cela tient en bonne partie à notre refus, malgré l'insistance de 
nombreux de nos clients, de promettre des articles sur leurs produits en échange de contrats de 
publicité, un mode d'échange pudiquement baptisé “publicité rédactionnelle”. 


Pom's préfère garder sa liberté d'expression, au risque de perdre certains annonceurs. Nous faisons le 
pari que les lecteurs ne se laisseront pas abuser par ces faux articles, qui pourraient les encourager à 
acheter des produits de qualité insuffisante. 


Le monde de l'Apple II, comme nous le montre bien Jean-Michel Gourévitch depuis plusieurs 
numéros, est en constante évolution. Dans combien de temps disposerons-nous d'un Apple IT aussi 
puissant que le Macintosh ? Probablement plus très longtemps ; il n'en reste pas moins que -— pour des 
raisons de compatibilité avec le vieil Apple II — on n'arrivera pas tout de suite avec ce matériel à la 
qualité ergonomique du Macintosh. 


Ceci dit, ces derniers temps, le monde du Macintosh bouge encore plus vite que celui de l'Apple II, 
avec en particulier l'arrivée du MacPlus. Depuis quelques mois, le prix des extensions S12K pour le 
Mac baisse sans cesse : nous sommes passés en un an de pratiquement 12.000 F TIC à moins de 
3.000 F TTC aujourd'hui. Quand on voit le prix que coûte encore aujourd'hui l'extension à 1 Mo, le 
possesseur d'un Mac aura intérêt à faire transformer son Mac en MacPlus (extension à 1 Mo, nouvelles 
ROM, passage du lecteur intégré à 808K) plutôt que de s'offrir la seule extension mémoire. 


Autre signe des temps, après s'être longtemps enfermé dans sa politique de standard à part de 
l'industrie, Apple met en relief sa capacité à travailler en réseau avec le monde IBM. 


Nous continuons à recevoir des lettres de possesseurs d'Apple IT s'inquiétant de savoir si nous n'allons 
pas abandonner progressivement celui-ci pour le Macintosh. Je pense que, depuis le temps que nous 
proposons le cahier Macintosh, ces lecteurs peuvent être rassurés : nous n'avons pas réduit la 
pagination Apple II - comme promis — et toute extension du cahier Mac se fera sous la forme d'une 
augmentation de la pagination. 


Remarque importante : nous continuons à recevoir du courrier à l'ancienne adresse, mais celui-ci ne 
suit plus systématiquement. Pour être sûr que vos lettres nous parviennent, utilisez donc l'adresse : 
64/70 rue des Chantiers - 78000 Versailles. 


Hervé Thiriez 


Photo de couverture : Macintosh Plus - Clavier AZERTY avec pavé numérique incorporé, 1 Moctets de RAM 
bientôt extensible à 4 Moctets, 128 Ko de ROM, routines QuickDraw réécrites pour plus de rapidité, lecteur de disquettes 
double face double densité 800 Ko. Prix hors TVA : Macintosh Plus : 25900 F (le Mac 512 Ko coûte désormais 
22900 F, le Mac 128 Ko est abandonné) - lecteur externe 800 Ko (pour Mac Plus ou Mac standard) : 3900 F - mise à 
niveau Mac Plus pour Mac 128 Ko : 6500 F - mise à niveau Mac Plus pour Mac 512 Ko : 4500F. 


Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, Manfred Brede, Pascal Cantot, Jean-Louis 
Chauvin, Alexandre Duback, Bruno Fénard, Bemard France, Sylvie Gallet, Jean-Michel Gourévitch, Olivier Herz, 
Bemard Hoyez, Gérard Michel, Jean-Luc Nail, Patrice Neveu, Christian Piard, Guillaume Pot, Marianne Sutz 

Directeur de }a publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Editions MEV - 49, rue Lamartine - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Editions MEV. 

Diffusion : N.M.P.P. 

Impression : Rosay - 47, avenue de Paris - 94300 Vincennes. Tél. : (1) 43.28.18.63. 


Pom's est une revue indépendante non rattachée à Apple Computer, Inc. ni à Apple Computer France S.A.R.L. Apple, le logo Apple, Mac et je 
logo Mackintosh sont des marques déposées d'Apple Computer. Inc. 
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Composition automatique 
de numéros de téléphone 


Bernard Hoyez, Jean-Luc Nail 


e plus se souvenir d'un 

numéro, ou le doigt qui 

dérape sur le clavier du 

téléphone, cela vous est 
déja arrivé, n'est:ce-pas ? La 
numérotation à huit chiffres n'a 
pas arrangé les choses. Combien 
de temps et de taxes de base cela 
vous a-t-il coûté ? Une solution à 
ce problème est de remplacer 
votre vieux téléphone à cadran par 
un superbe appareil à mémoires 
ou alors... de demander à votre 
vieil Apple de faire ce travail à 
votre place. Désormais, Roméo, 
faites apparaître le doux nom de 
Juliette sur l'écran de votre 
ordinateur favori et vous 
entendrez aussitôt la voix de votre 
chère et tendre amie. 


Le composeur automatique de 
numéro nécessite : 


* uneinterfaceentre l'Apple et la 
ligne téléphonique ; 

+ un logiciel de composition de 
numéro. 


Principe de la 
composition d'un 
numéro 
téléphonique 


Un appel téléphonique se 

décompose en quatre phases : 

“ laprise de ligne; 

“ la composition du:numéro sur 
le clavier ou le cadran ; 

* l'échange audio ; 

+ leraccrochage. 

La prise de ligne s'effectue 

lorsque l'on décroche le 

combiné : un interrupteur se 

ferme et court-circuite la ligne. 


La composition de numéros 
consiste à envoyer sur la ligne une 
succession de signaux repré- 
sentant chacun un chiffre. Un 
chiffre est lui-même une 
succession d'impulsions et à 
chaque chiffre correspond un 
certain nombre d'impulsions 
élémentaires : une impulsion pour 
le chiffre 1, deux impulsions pour 
le chiffre 2, .…;, 10 impulsions 
pour le chiffre 0. Une impulsion 
comporite une ouverture de ligne 
d'une durée de 66 millisecondes 
suivie d'une fermeture de ligne de 
33 millisecondes. 


Le raccrochage s'opère lorsqu'on 
repose le combiné, ce qui a pour 
effet d'ouvrir à nouveau le circuit. 
La forme du signal envoyé sur la 
ligne a l'aspect représenté dans 
l'encadré. 


| Inter chiffre 





L'interface : 
la prise de jeu ! 


Le principe en est simple, il s'agit 
de simuler un second téléphone en 
parallèle pour lequel la prise de 
ligne, la composition et le 
raccrochage seront gérés par 
l'ordinateur. Une fois Ja 
communication établie par ce 
“téléphone virtuel”, on reprend la 
ligne par le téléphone réel. 


Le téléphone virtuel agit comme 
un interrupteur, dont .la 
commande peut être réalisée par 
une sortie logique de l'Apple. 
Inutile de concevoir une carte 
spécialisée car ces sorties logiques 
existent sur la prise de jeu. Elles 
sont au nombre de quatre et 
appelées ANO, ANI, AN2 et 
AN3. Elles ne sont accessibles 
qu'à l'intérieur de l'Apple au 
niveau du connecteur 16 broches. 


Sur l'Apple //e , on a négligé de 
reprendre ces sorties sur le 
connecteur externe 9 broches, 
c'est dommage. Une seule sortie 
est nécessaire, nous avons choisi 
_ situé sur la broche numéro 


Temps 


Chiffre 1 Raccrochage 
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Pour assurer une isolation parfaite 
entre l'Apple et la ligne 
téléphonique, l'interrupteur est 
celui d'un relais. Nous avons 
choisi un mini-relais 5 V de type 
CLARE PRME (ou équivalent). 
Pour commander ce relais, il faut 
amplifier le signal fourni par 

. ANO, grâce à un transistor et au 
+S V disponible sur la broche 1 
du connecteur de jeu. 
L'ensemble des composants 
prend place sur une petite 
plate-forme enfichée dans le 
connecteur de jeu par 
l'intermédiaire d'un support de 
circuit intégré. 


Le programme 


Une partie de la mémoire de 
l'Apple est réservée aux 
entrées/sorties, notamment pour 
ce qui nous concerne aux sorties 
logiques ou “annonciateurs” de la 
prise de jeu. Pour l'annonciateur 
ANO, il s'agit des mémoires 
d'adresses $C059 et $CO58. Le 
simple fait d'écrire à ces adresses 
met respectivement la broche ANO 
à l'état 1 (3,5 V) ou à l'état O 
(0,3 V). 
Cette écriture peut se faire de deux 
manières, soit en Basic, soit en 
langage-machine : 
* en BASIC, on pourra faire un 
POKE 49241,0 (état 1) ou un 









 N Lo À Un Où NJ Oo 


POKE 49240,0 (état O) ; 

* en langage d'assemblage. on 
écrira STA $C059 (état 1) ou 
STA $C058 (état O). 


Le logiciel consiste donc à gérer la 
commutation de ces deux adresses 


à des intervalles de temps précis et 


brefs. Lors de la composition 
d'un chiffre, entre deux 
impulsions successives, le 
passage à l'état haut dure 33 
millisecondes. Un tel laps de 
temps est trop court pour être 
maîtrisé dans un programme 
Basic, d'où la nécessité d'écrire 
en langage-machine la partie du 
programme effectuant la 
composition des chiffres. 


Le programme 
‘COMPOSEUR'’ 


Ce programme fait appel à une 
routine de temporisation du 
moniteur appelée WAIT, 
implantée en $FCAS. Elle permet 
de régler précisément les durées 
des passages à l'état haut et à 
l'état bas. La temporisation, en 
microsecondes, est une fonction 
de la valeur entrée dans 
l'accumulateur : 
t=-(26+27*A+S*A*A)/2 
Ainsi, pour une durée de 66 ms, 
on entrera 159 dans A avant 
d'appeler la routine WAIT. 

Le cas de la composition du 
chiffre O est traité à pat, car il 


1500 
13 8 
7 7 


si 


EE 
CLARE PRME 5V 


=—" 
LR à 








correspond à la génération de 10 
impulsions (et non de O). 

Le code ASCII du chiffre à 
composer, stocké en mémoire 7 
par le programme Basic, est 
chargé dans l'accumulateur. Si le 
code ASCII n'est pas celui d'un 
chiffre, on passe au chiffre 
suivant en positionnant un 
drapeau en mémoire 8. Le AND 
#$0F permet la transformation du 
code ASCII en chiffre de O à 9. 
Le cas particulier du 0 est ensuite 
traité. La routine principale 
BOUCLE génére alors un nombre 
d'impulsions (PULSE) différent 
selon le chiffre stocké dans le 
registre X. 


Le programme ‘AGENDA’ 


Ce programme Basic établit la 
correspondance entre le nom d'un 
abonné et son numéro de 
téléphone, puis il effectue la 
composition de ce numéro. Le 
choix de l'abonné se fait en 
visionnant l'agenda au moyen des 
flèches gauche et droite. 

Pour ne pas compliquer le 
programme d'un gestionnaire de 
fichier, les noms d'abonnés et 
leur numéro sont intégrés à la fin 
du programme sous forme de 
DATA. Il suffira d'ajouter de 
nouvelles lignes de DATA pour 
entrer de nouveaux corres- 
pondants. Le programme place 
ces données dans le tableau T$. 
Rien ne vous empêche, si vous 
possèdez un agenda sur disquette 
dont vous connaissez la structure, 
de le récupérer dans le tableau T$. 
Comme la liste de vos 
correspondants est susceptible de 
changer très souvent, on a évité 
de remplir le tableau T$ au moyen 
d'une boucle FOR...NEXT que 
l'on aurait dû ajuster chaque fois. 
En cas de fin de DATA, la routine 
de traitement d'erreur interrompt 
le remplissage du tableau. 

Une fois le choix validé par la 
frappe sur la touche <RETURN>: 


A On effectue la prise de ligne 
(ligne 380). 

B Le code ASCII de chaque 
chiffre du numéro téléphonique 
est stocké en mémoire 7 et un 
appel à la routine ‘Composeur’ 
est fait, ceci autant de fois que 
le numéro comporte de 
chiffres. Entre chaque chiffre 














composé est laissé un temps de Programme = JS 
relaxation. : COMPOSEUR.S 31 CŒMPOSE TAX 
1 32 
C Dès que le numéro est (Assembleur Merlin) ne. NN à 
composé, vous pouvez … PRET 
décrocher le combiné télé- ) Prrnneneeesreereereereereees 35 DEX 
û 749% 2* e 36 SNE BO 
phonique. Le téléphone à dés > . ne 
virtuel” reste branché en ne ; : 
parallèle pendant quelques S ssssrresrressesesseseesunsess 39 ERROR = * 
! # é «0 LDA #$FF 
secondes, le délai restant est nds à À 
affiché sur l'écran. 8 42 RTS 
D Le “téléphone vütuel” est alors ; 13 
2 li 550) t 10 ; ADRESSES 44 PULSE ZLOA #159 
coupé (ligne » VOUS restez nu Fe DA CLAANO 
alors seul en communication. 12 SEFANO = $COS9 46 JSR AIT 
A : 9 13 CLRANO _ $Scosse 47 LDA #108 
ANG... Juliette... ? 14 AIT = sr 48 STA  SETANO 
15 CYIFFRE æ 7 43 JSR NAIT 
16 ERREUR _ 4 50 RTS 
4 27 
N.D.L.R. : un tel montage n'entre É sel san RE 
pas dans le cadre de ce que vous 19 Récapitulation 
Fi , ni ; 20 ENTREE - , 
autorise l'administration des - COMPOSEUR 
Postes. Vous testerez ceci, bien SE LOR CHIFFRE 
entendu, sur une installation 23 CMP #"O--1 0300- A5 07 C9 AF 50 12 C9 BA 
indé, d 2 24 BCC ERROR 0308- BC 0E 29 OF DO 02 A9 OA 
indépendante du réseau. 25 CMP D'9+] 0310 AA 20 1D 03 CÀ DO FA 60 
26 BCS ERROR 0318- A# FF 85 08 60 A9 9F 8D 
27 0320- 58 C0 20 AS FC A9 6C 8D 
z8 AD #61]1)] 0326- S9 CG 20 A8 FC 60 
Programme 280 IF A$# = 13 THEN 360 
290 IF A8 = 21 THEN I =I#+I1 
AGENDA 300 IF A8 = 8 THEN I = I - 1 
310 IFI>N-1THENI=N-1 
10 REM ***COMPOSEUR DE NUMERO*** ee pe de EN T1 
A ossi ° 340 CALL - 868: PRINT TS(I,1), T$(I,2) 
30 REM * Bernard HOYEZ + dE pre 1 
40 REM* et Jean-Luc NAIL * 
SO REM ÉRRRRRRRRRRRRRRRRRRRRRÉRRR 360 X$ = T$(I, 2) 
+* * 
60 REM ==>ENTRER LES NOMS ET LES NUMEROS EN D ARE A LE D 
NS RE 380 POKE 49241,0: REM PRISE DE LICNE 
70 REM RhthttSSR St à tt à à à à à à à à à à 390 FOR I = 1 TO 700: NEXT I 
a CEQE 400 HOME 
90 ONERR GOTO 570 410 PRINT : PRINT “Je compose le numéro "; 
200 PRINT " COMPOSITION AUTOMATIQUE DE" 420 FOR I = 1 TO LEN {X$) : 
110 PRINT “ NUMERO TELEPHONIQUE" 430. À = ASE ( MEDSI (SSLND + 128 
120 PRINT CHR$ (4) ; "BLOADCOMPOSEUR" 440% PORE à 
130 DIM T$(100, 2) 150 CAE ARE 
ones 460 PRINT CHRS (A); 
er 470 FOR T = 1 TO 600: NEXT T 
160 FOR J = 1 10 2 Lo | 
170 READ TS(N,J} 490 HATAB 1: VTAB 5: PRINT "Décrochez le comb 
180 NEXT J | iné, maintenant..." 
190 GOTO 150 500 VTAB 8: PRINT "..... avant” 
200 VTAB (8) S10 FOR I = 400 TO 1 STEP - 1 
210 PRINT “Utilisez les flèches ";: INVERSE 520 VTAB (15): HTAB (11) 
: PRINT "=>": NORMAL : PRINT "et "5: 530 PRINT INT (I / 50);" secondes" 
NVERSE : PRINT "<="; NORMAL 540 NEXT I 
220 PRINT “pour sélectionner le nom de l'abo 550 POKE 49240,0 
nné" 560 GOTO 580 
230 PRINT : PRINT "Validez avec la touche RE 570 IF PEEK (222) = 42 THEN 200 
240 I=0 590 PRINT "...Pret pour un autre appel ...": 
250 GET AS GOTO 140 
260 A$ = ASC (AS) 600 DATA RENSEIGNEMENTS, 3612 
270 IF Ag < > 13 AND A$ < > 21 AND A#$ < > 620 DATA AUTRES RENSEIGNEMENTS, 3611 
8 THEN 260 630 DATA JULIETTE, 12345678 
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Adaptation à ProDOS des 


routines en assembleur 


Alexandre Avrane 


l'existe actuellement plusieurs centaines d'utilitaires 

en assembleur qui facilitent la programmation en 

Applesoft : tris, contrôle de saisie, formatage de 

nombres, etc. Malheureusement ces routines, 
conçues pour fonctionner correctement sous DOS 3.3, ont 
été assemblées à des adresses fixes et ne tournent plus dans un 
environnement ProDOS ; l'objectif de cet article est donc de 
répondre aux questions des lecteurs qui désirent conserver 
l'acquis d'une importante logithèque d'utilitaires, en les 
transposant pour un environnement ProDOS. 


Cependant, il s'agit plus de 
fournir des conseils que de 
proposer un module tout chaud et 
prêt-à-exécuter, car une telle 
conversion n'est pas une 
opération automatique qui peut 
facilement se ramener à un 
algorithme unique. N'oublions 
pas qu'il ne s'agit pas de recopier 
un fichier sous un format 
différent, mais également de le 
modifier pour qu'il soit adapté à 
son nouvel environnement. 


Certains programmes publiés par 
Pom's-serviront d'exemple et de 
référence. auto-publicité exige! 
Enfin, la démarche à appliquer 
sera volontairement détaillée car 
elle s'adresse également aux 
lecteurs qui connaissent peu 
l'assembleur ; certaines recom- 
mandations pourraient donc 
paraître superflues. 


Avant de se précipiter sur son 
clavier, il n'est pas inutile de se 
poser quelques questions sur le 
programme à adapter : 

+ est-ilutile ? 

est-il adaptable ? 

où se loge-t-11 ? 

comment est-il utilisé ? 
comment se protège-t-il ? 
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Le programme 
est-il utile ? 


Une routine peut être fort utile 
pour surmonter certains handicaps 
du DOS 3.3, mais se révéler en 
revanche de peu d'attrait avec 
ProDOS. 


C'est le cas des programmes 
destinés à accélérer les temps de 
chargement de fichiers ;ceux qui 
relogent le DOS sur la carte 
langage, ou tous les utilitaires 
tournant dans un environnement 
DOS 3.3 + Integer Basic. 


Idem pour le programme FREI6 
de nettoyage de la mémoire 
(Pom's 2), désormais intégré 
dans la commande FRE de 
ProDOS. 


Le programme 
est-il adaptable ? 


Une routine qui supposait comme 
principe essentiel de 


fonctionnement la présence du 
DOS 3.3 ne pourra pas être 
adaptée à ProDOS sans une 
révision générale. 


En effet, les appels du File 
Manager ou RWTS d'une part, du 
ProDOS MLI d'autre part, ont des 
structures totalement différentes. 
En pratique, l'examen du source 
du programme donne une sérieuse 
indication de sa dépendance vis à 
vis du DOS 3.3 : toute référence à 
une étiquette externe située dans la 
plage d'adresses $9600-$BDFF 
constitue normalement une foite 
présomption. 


Ainsi, le HELLO complet de 
Pom's 6 ne peut pas être adapté 
en quelques minutes à ProDOS ; 
il serait préférable de le réécrire 
complètement. De même pour les 
programmes de francisation du 
DOS (Pom's 2 et 8) : les formats 
sont différents sous ProDOS et, 
de plus, les adresses absolues des 
commandes et libellés d'erreur 
varient pour chaque version. 


Où le programme 
se loge-t-il ? 


Sous DOS 3.3, les programmes 
en assembleur pouvaient se loger 
pratiquement n'importe où ! Sous 
ProDOS, certains emplacements 
sont à éliminer, en particulier : 


+ le buffer d'entrée ($200- 
$2FF), 

+ les adresses $9A00-$9CFF 
(anciennement les buffers du 
DOS 3.3), 

+ la carte langage, dans son 
intégralité. 

La seule exception concerne la 
routine d'accès à une carte 
horloge, pour laquelle un petit 
emplacement est réservé, 
moyennant l'adhésion à un 
protocole rigoureux d'interface 
avec ProDOS. 
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Trois emplacements sont 
généralement classiques pour 
placer les routines : 


+ La page 3 (adresses $300- 
$3CF) est laissée disponible. 
Dans ce cas, vous n'aurez 
probablement aucun problème, 


° En revanche, les emplacements 
situés sous les buffers du DOS 
3,3 (limite supérieure en $9600), 
ainsi que ceux situés un peu plus 
haut et pour lesquels on déplaçait 
les buffers du DOS sous la 
routine, vont nécessiter un 
déplacement du programme. 
Sinon on obtient généralement, tôt 
ou tard, le message ‘NO 
BUFFERS AVAILABLE’ de 
ProDOS. Nous verrons plus loin 
comment reloger un programme 
en assembleur. 


+ Enfm, le dernier emplacement 
favori - cacher la routine au sein 
d'un programme Applesoft (pour 
les détails, lire Pom's 12 page 
35) - est totalement transparent 
par rapport au système 
d'exploitation utilisé, et ne pose 
aucun problème. 


Comment le 
programme est-il 


utilisé ? 


Toute routine en assembleur est 
appelée soit directement, soit 
indirectement. 


La méthode directe consiste à 
demander son exécution par un 
CALL vers une adresse 
déterminée. Si le programme a été 
relogé, il ne faudra donc pas 
oublier d'indiquer la nouvelle 
adresse au programme appelant. 


L'autre méthode utilise indiffé- 
remment l'ampersand (&), 
l'instruction USR de l'Applesoft 
ou le Control-Y du moniteur. Ces 
vecteurs sont initialisés soit par le 
programme appelant, soit par le 
programme appelé (et relogé) ; ici 
aussi, il faudra modifier les 
valeurs d'initialisation (si possible 
en créant un chaînage car 
plusieurs routines peuvent utiliser 
le même vecteur). 


Comment le 
programme est-il 
protégé ? 


Dans l'environnement ProDOS, 
les pages d'adresses mémoire 
(blocs de 256 octets) sont 
marquées libres ou occupées. 
ProDOS utilise les pages libres 
pour s'allouer dynamiquement les 
buffers nécessaires aux accès 
disque. 


En particulier, ProDOS refusera 
de charger un programme 
assembleur vers un emplacement 
occupé et, inversement, pourrait 
l'écraser si celui-ci n'a pas 
indiqué les pages qu'il utilise. 


Le programme RAM.BITMAP de 
Guy d'HERBEMONT permet 
d'illustrer ce processus. Il affiche 
la carte des pages mémoire 
disponibles (pages $00 à $BF) en 
indiquant pour chacune si elle est 
occupée ou libre. 


Après le chargement de ProDOS 
+ Basic.System, on obtient : 


0123456789ABCDEF 





SOO07 P'P'°7°1P'P'P'PE9T972 0707070270 


SD: 2101071070" 070/F0r-0" (0 0 M0; 00 RC 
$29°°°0°00000600e00000 
9002:2:970%60 0; '0"0"0-0 0 F"oR0 0 
$49 °°°0000000000000 
#50! 210,00 0/00/0400; 0 "0070080 
$60. 2 9 9 9:0 0.0 0.000 010 0029 
70-92 2010070070; 10700 0500 600 
$SSoQ © © 9 0 0 0,0 0 © 0 o a o oong 
$99 °°°00000%opppPPP 
$AOPPPPPPPPPPPPPPPP 
$BOPPPPPPPPPP"® °°" PE 





P = protégé °= libre 


On note en particulier: 


+ Les pages O, 1 (pile du 6502), 
4 à 7 (écran texte) sont protégées 
en permanence. Un programme 
assembleur peut, cependant, les 
utiliser; en particulier les adresses 
en page zéro qui sont disponibles 
sous DOS 3.3 le restent sous 
ProDOS. 


° La page 2 (buffer d'entrée) est 
libre car ProDOS l'utilise (il 
recopie la commande en cours 
pour en extraire les paramètres, et 
y fonnate également le chemin 
d'accès complet à un fichier). 


+ La page 3 est également libre ; 
si vous y placez une routine en 
assembleur, ProDOS pourra donc 
l'écraser par le chargement d'une 
autre routine. 


*< Himem ($73-74) pointe vers 
$9600. ProDOS en conclut que 
les 4 pages suivantes ($96 à $99) 
correspondent à son buffer de 
brouillon général. Ces pages ne 
doivent pas être utilisées. 


+ Les pages suivantes sont 
occupées (les pages $BA à $BD 
servent de zones de travail au 
Basic.System). 


Notez que l'on obtient le message 
"NO BUFFERS AVAILABLE" si 
on tente de charger un fichier 
directement sur une page 
protégée. Or ProDOS gère 
dynamiquement l'espace mémoire 
de l'Apple pour s'allouer des 
buffers de fichiers (à la différence 
du DOS 3.3 qui, en fonction du 
MAXFILES, se réservait 
défmitivement de l'espace). 


Trouve-moi une 
place où me loger 


Observons la séquence à 
l'ouverture d'un fichier : 


+ ProDOS abaisse Himem de 
1Ko ($400 octets) et déplace les 
variables chaînes de caractères de 
l'Applesoft vers le bas (dépla- 
cement physique des chaînes et 
mise à jour de leur pointeur) ; 


+ Son buffer brouillon débute 
donc maintenant en $9200, le 
buffer du fichier ouvert est placé 
$400 octets plus haut, en $9600 
(jusqu'en $99FF). 


Cette séquence est répétée pour 
chaque nouveau fichier ouvert, 
jusqu'à concurrence de 8 fichiers, 
ce qui porte Himem à $7600. 
Pour chaque fermeture, elle 
s'exécute à nouveau mais en sens 
mverse. 
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Il n'est pas possible de placer nos 
programmes assembleur juste en 
dessous de $7600 (quelle perte de 
place'), car ceux-ci seraient 
écrasés sans pitié par les chaînes 
de caractères de l'Applesoft 
déplacées par ProDOS. 


En revanche, une solution 
beaucoup plus élégante existe : le 
placer entre ProDOS et ses 
buffers. 

Supposons que notre programme 
soit assemblé de $94A6 jusqu'en 
$95FF. En comptant en nombre 
de pages, il en occupe donc 2. Si 
nous le plaçons en $98A6, il 
occupera donc l'espace jusqu'en 
$99FF. Simultanément, abaissons 
Himem de 2 pages en $9400. 
Comme ProDOS détermine la 
position de son buffer brouillon 
en fonction de Himem, il en 
concluera que celui-ci se situe en 
$9400-$97FF. Par la suite, les 
ouvertures de fichiers pourront 
s'effectuer sans problème vers le 
bas. 


Deux problèmes restent à 
résoudre: 


* d'une part, notre programme 
ne peut pas être chargé 
directement à son adresse 
définitive car il serait alors chargé 
dans son propre buffer, ce que 
ProDOS refuse. Il faut donc 
prévoir une petite routine qui le 
charge à une adresse plus basse, 
puis le reloge. 


* d'autre part, son chargement 
ne pourrait s'effectuer que si 
aucun autre fichier n'est ouvert, et 
les chaînes de caractères qu'aurait 
pû créer un programme Applesoft 
seront détruites. Heureusement, 
une routine publique de ProDOS 
permet - nous le verrons - de 
gérer ce point. 


Déplacement des 
programmes 


Résumons-nous : les petites 
routines en assembleur, celles qui 
se logent sur la page 3 ou se 
cachent dans un programme 
basic, ne posent pas de problèmes 
majeurs. 
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En revanche, les gros 
programmes - donc les plus 
difficiles à recréer soi-même -, qui 
se logent autour des buffers du 
DOS 3.3 devront être placés à une 
autre adresse. 


Malheureusement, quiconque a 
observé un module en assembleur 
sait que l'on ne peut pas 
inpunément les déplacer à travers 
la mémoire. Le résultat, quasi- 
assuré, est un magnifique 
plantage. Seuls, quelques 
programmes sont écrits sous une 
forme dite relogeable... mais ils 
sont bien rares car is nécessitent 
soit des acrobaties de 
programmation pour éliminer les 
JMP, JSR et autres instructions à 
adresse fixe, soit la nécessité 
d'utiliser un assembleur précis et 
une routine spéciale de 
chargement (l'EDASM et le 
module RLOAD d'Apple par 
exemple). 


Il est donc nécessaire, dans la très 
grande majorité des cas, de 
réassembler soi-même la routine 
vers sa nouvelle adresse 
d'implantation. Comme ProDOS 
ne supporte que les allocations de 
mémoire par frontière de page, il 
faut se simplifier la vie en fixant la 
nouvelle adresse selon la 
formule : 


[nouvelle adresse] = 
$9A00 — ([partie haute de l'adresse de 
fin] + 1 — jpartie haute de 
l'adresse de début}} * 5100 
+ [partie basse de l'adresse de 
début] 


Aïnsi, un programme situé en 
$94A6-$9596 se loge en : 


$9A00-($95-594+1)*$100+$5A6-$98A6 


Notons que l'on pourrait 
envisager de faire cohabiter 
simultanément plusieurs 
programmes assembleur sur des 
pages contiguës. Mais il faudrait 
alors les réassembler après leur 
chargement (puisque l'on ne peut 
connaître à l'avance leur adresse 
fmale d'implantation), ce qui sort 
des limites de cet article. 


Pour réassembler notre 
programme, deux méthodes sont 
alors possible : 


1) La méthode dite “appel à 

Murphy" qui consiste, lorsque 
l'on ne dispose pas d'assembleur, 
à reloger la routine à la main. Il 
faut prendre en compte trois 
aspects : 


DEBUT JMP (VECTEURI) ; 
instruction à trois octets : 
modifier le dernier 

VECTEURI DA  ROUTINEL ; 
table d'adresse : 
modifier le ler octet 

ROUTINEI LDA #>BEBUT ; 
valeur - dépendante d'une 
adresse - à modifier 

Comme l'indique son nom, cette 

méthode, conduite sur de gros 

modules, amène à coup sûr à un 
plantage. En désespoir de cause, 
consultez la routine RELOCATE 

de Pom's 1. 


2) Plus raisonnablement, il faut 
prendre un assembleur, 
charger le fichier source, modifier 
simplement (dans la plupart des 
cas) la directive ORG qui fixe 
l'adresse de début du module 
objet, réassembler et sauver sur 
disque. Vous n'avez pas 
l'assembleur adéquat ? La plupart 
des assembleurs permettent de 
sauver les sources sous le format 
des fichiers TEXT classiques ; de 
plus Pom's a publié : 
- les équivalences de directives 
entre assembleurs (Pom's 9) ; 
- une routine de conversion Big 
Mac/Lisa 2.5 (Pom's 10). 


Routine 
d'initialisation 


Vous avez donc sauvé sur disque 
le nouveau module objet au 
format ProDOS. Il reste à réaliser 
la routine de chargement et 
d'initialisation de ce module. 
Nous avons pu déterminer plus 
haut l'algorithme à utiliser : 


1) Chargement à partir du disque 
vers la zone mémoire pointée par 
Lomem ($6D-6E) : ainsi nous 
minimisons le risque d'écraser 
des variables de l'Applesoft. 


2) Appel de la routine GETBUFR 
du Basic.System (version 1.1 et 
suivantes) avec l'accumulateur en 








entrée contenant le nombre de 
pages désirées. Si la retenue est à 
1 en sortie : il n'y a pas de place 
disponible et on arrête. Sinon, la 
place demandée a été réservée et 
Himem a été mis à jour par le 
Basic.System (en corollaire, le 
programme ne doit pas lui-même 
manipuler Himem: éliminez donc 
toute référence aux adresses $73 
et $74). 


3) Recopie du module vers sa 
destination fmale. 


4) Eventuellement, mise à jour de 
la carte des pages RAM de 
ProDOS af m que le programme 
ne soit pas écrasé par 
inadveitance. 


S) Enfin, appel éventuel du 
module (si celui-ci se lance 
habituellement par BRUN). 


Qui dit algorithme, dit 
programme. Il s'appelle - bien 
sûr - DARWIN puisqu'il perrnet 
de s'adapter à un nouvel 
environnement... 


Et maintenant la question à cent 
sous : où va-t-on le placer? 


Il n'y a guère de choix puisque la 
plupart des emplacements 
possibles ne peuvent être 
supposés disponibles : notre 
programme d'initialisation devra 
se loger entre Lomem et Himem. 
En pratique nous allons assembler 
simultanément DARWIN et le 
programme à adapter, de manière 
à obtenir un unique module objet. 


Méthode 
d'utilisation 


Afin d'illustrer la façon d'utiliser 
DARVWIN, nous allons utiliser en 
exemple un des programmes de tri 
publiés par Pom's : 

TRITABLEAU (Pom' 11, p 47). 


Un premier examen du source 
indique que ce programme n'est 
pas dépendant de l'environnement 
DOS 3.3 sous lequel il a été conçu 
à l'origine. Seule la présence de 
l'Applesoft est nécessaire. 


L'assembleur du DOS Tool Kit, 
utilisé à l'origine, ne supporte pas 
la notion de fichiers source 


chaînés avec laquelle un source 

peut être scindé en plusieurs 

fichiers distincts. Nous utiliserons 

< conséquence l'assembleur Big 
ac. 


Première étape : le fichier 


source est renommé 
T.TRITABLEAU afin de pouvoir 
être lu par Big Mac. Par un 
assemblage sous la version DOS 
3.3, on remarque que le module 
occupe nornalement les adresses 
$9AA6 à $9C3A. Profitons-en 
pour corriger une erreur du souice 
TRITABLEAU publié dans 
Pom's : les lignes 30 et 32 
doivent être interveities. 


Deuxième étape : La ligne 28 
du source, qui contient la directive 
OBJ, doit maintenant être 
supprimée : l'adresse de début 
d'assemblage sera déterrninée par 
DARWIN. C'est la seule 
modification nécessaire pour 
TRITABLEAU. Le source est à 


nouveau stocké sur disque sous 
formne d'un fichier TEXT. 


Troisième étape : on charge 
sous Big Mac le source 
DARVWINS ; la dernière ligne 
doit être modifiée pour contenir le 
nom du programme à adapter, en 
l'occurence TRITABLEAU. 


Quatrième étape: placer la 
disquette contenant le fichier 
T.TRITABLEAU dans le lecteur 
courant. Demandons un 
assemblage : aussitôt, l'utilisateur 
doit indiquer la valeur des 
variables DARWIN D et 
DARWIN F et VA DEBUT ; 
DARVWIN D représente l'adresse 
de début sous DOS 3.3, en 
l'occurence $9AA6. DARWIN F 
est l'adresse de fin, donc $9C3A. 
VA DEBUT indique si l'on doit 
ou non sauter au programme 
après son chargement ; comme 
TRITABLEAU est norrnalement 
chargé par un BRUN sous DOS 


Programme TRITABLEAU. DEMO 


1 REM TRITABLEAU.DEMO À. Avrane 


10 D$ = ÆCHRS$ (4) 


15 PRINT DS$S"BRUNTRITABLEAU,A"256 * ( PEEK (110) 
+ 5): REM laisse au moins $400 octets libre 


s 
20 TEXT : HOME : 
25 PRINT 

OS" 


30 DIM AS$(20),A(20) 


PRINT D$S"PR#3" 
"DEMONSTRATION DE TRI RAPIDE SOUS PROD 


35 INVERSE : PRINT "Indice- Element": NORMAL 
40 FOR I = 1 TO 20 
50 FOR J = 1 TO 12 
60 AS$(I) = A$(I) + CHR$ (651125 * RND (1)) 


70  NEXT sAuI) = I 
80 GOSUB 900: NEXT 
100 
105 


ex octet": NORMAL 


& T,0,A$(1),A$(20),A(1) 
HTAB 20: VTAB 2: INVERSE : PRINT "Tri sur 1 


5 PRINT "Tra sur d 


110 FOR I = 1 TO 20 

120 HTAB 20: VTAB I + 2 

140 GOSUB 900: NEXT 

200 & S,12,0,A$(1),A$(20),A(1) 

205 HTAB 40: VTAB 2: INVERSE 
ernier octet": NORMAL 

210 FOR I = 1 TO 20 

220 HTAB 40: VTAB I + 2 

230 GOSUB 900: NEXT 

240 END 

900 PRINT RIGHTS ("O" + 


I): RETURN 


STRA AT) ),2)"-= "AS( 
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3.3, il faut donner la valeur 1 ; et 
la valeur O pour un BLOAD,. La 
suite de l'assemblage charge en 
overlay le source T.TRITA 
BLEAU et assemble les deux 
sources. [1 ne reste plus qu'à 
sauver sur disque ce module objet 
sous le nom TRITABLEAU. 


Cinquième étape : modifier 
l'appel à TRITABLEAU du 
programme Applesoft qui 
l'utilise. Le format d'appel 
devient : 


PRINT CHR$(4) "BRUN 
TRITABLEAU, A" 256 * 
(PEEK(110) + 5) 


et charge le module dans une zone 
libre, au dessus des variables 
numériques de l'Applesoft et d'un 
buffer de $400 octets utilisé par 
GETBUFR. 


Fonctionnement de 
DARWIN 


L'essentiel a déjà été dit du 
fonctionnement de DARWIN. On 
peut cependant remarquer que 
celui-ci est écrit sous Big Mac et 
en utilise les directives KBD 
(saisie de la valeur d'une variable 


Programme DARWIN.S 


(Assembleur BigMac) 


par l'utilisateur) et PUT (lecture 
d'un fichier source). Ces 
directives sont transposables sans 
difficultés pour Lisa, EDASM 
ProDOS, etc. 


La version actuelle suppose un 


appel au programme relogé afin 


de l'initialiser. Dans le cas 
contraire, il suffit de placer un 
RTS au lieu du JMP indirect final. 
DARWIN est bien entendu 
entièrement relogeable puisque 
l'on ignore son adresse 
d'implantation. Enfm, la carte des 
pages mémoire protégées n'est 
pas mise à jour : cela n'est 
nécessaire que si l'on craint une 
interaction avec d'autres 
programmes assembleur. 


A l'exécution, le message 
PROGRAM TOO LARGE est 
généré si le Basic.System utilisé 
sous ProDOS est antérieur à la 
version 1.1, s'il est impossible de 
trouver suffisamment de place en 
mémoire vive pour reloger le 
programme, ou enfin si on tente 
re DARWIN sous DOS 


Un petit programme de 
démonstration montre les tris d'un 
tableau de chaînes de caractères, 


21 DARWINV2 = 
22 DARWINV3 
23 DARWINV4 
24 DARWINVS5 


NB : Ceprogramnre figure sur la 25 DARWINVE = 
disquelle d'accompagnement égelemet 26 
sous forrrai TEXT. Il est nommé 27 DARWIN À = 


fr à ÉRRÉAÉRRRRRRRÉARRÉRERÉHEREAÉ EE 29 

21 À DARWIN * 30 ORG 
3: RARHRRRRRÉRRRRÉRRRÉRRÉRÉRRÉRRÉRÉÉ 31 

4 32 * mme 
S * Routine d'initialisation à ProDOS 33 

6 * d'un programme assembleur DOS 3.3 34 * mmmm===-—- 
7 35 LDA 
8 * (Ci) 1985 Alexandre Avrane 36 BEC 
9 * Modifié: 24/11/85 37. LDA 
10 * Créé: 16/11/85 38 JSR 
11 39 BCC 
12 * Ce source est assemblé en conjonction 40 DARWINIO LDA 
13 * avec le programme à adapter ProDOS 41 JMP 
14 42 DARWINI1 = 
15 DARWIN_D KBD “adr début DOS 3.3 43 

16 DARWIN F KBD sadr fin DOS 3.3 44 * smmmms 
17 VA DEBUT KBD ; saute en début de 45 

pan après A6 Se 
chargement? 47 DARWIN20 JSR 

18 48 TSX 
19 * Calcul des adresses sous ProDOS 43 DEX 
20 DARWINVI = DARWIN_F/$100+1 50 CZC 


TDARWIN 28 DARWIN L = 


avec la clé en première ou dernière 
position de chaque chaîne. 
Reportez-vous à Pom's 11 pour 
les syntaxes d'appel à la routine. 


La disquette Pom's contient les 


‘fichiers suivants : 


DARWIN.S 
source en format Big Mac 
T.DARWIN 
source en fonnat TEXT pour 
conversion vers d'autres 
assembleurs 
T.TRITABLEAU 
source en format TEXT 
(appelé par l'assemblage de 
DARWIN.S) 
TRITABLEAU 
module exécutable 
ProDOS 
TRITABLEAU.DEMO 
programme Applesoft de 
démonstration (en 80 co- 


lonnes). 
CG 


sous 


DARWIN D/$100 
DARWINV1-DARWINV2 
$100*DARWINV2 
DARWIN_D-DARWINV4 
DARWINV3*$100-DARWINVS5 


$9A00-DARWINV6 ;ad début ProDOs 
DARWIN_F-DARWIN_ D+1 ; 19 ProDOS 


DARWIN_A-73 ;DARWIN = 72 octets 


$BFFD. IVERSION 
DARWIN10 Basic.System 1.0 
#0-DARWIN_A/$1 00+$9B 

SBEFS GETBUFR 

DARWIN11 

#14 PROGRAM TOO LARGE 
SBE09 


+ 


nn  — — — ——.. — " Î-ÎÙ | 
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51 LDA 
52 ADC 
53 STA 
54 LDA 
55 ADC 
56 STA 
57 LDA 
58 ADC 
59 STA 
60 LDA 
61 ADC 
62 STA 
63 LDA 
64 STA 
65 PHA 
66 LDA 
67 STA 
68 PARA 
69 LDY 
70 JSR 
71 


$100, x recherch sur la pile 

#DARWIN99-DARWIN20-2 ;adresse d 
ébut routine 

53C Al 

$101,X 

#0 

$3C+1 

$3C 

#<DARWIN_L 

S3E 

S3C+1 

#>DARWIN_L 

$3E+1 

#<DARWIN À adresse d'arrivée 

542 A4 


adresse de fin 


A2 


#>DARWIN À 
$42+1 


#0 
SFE2C déplace le bloc 


par MOVE 


72 ? =mmm… 


73 * 3 - Appel du module et sortie 


74 À emm-m-2mememmems 


75 PLA 
76 STA 
FArA PLA 
78 STAÀ 
79 DO 
80 UMP 
81 ELSE 
82 RTS 
83 NOP 
84 NOP 
85 FIN 
86 DARWIN99 = 
87 * Inclut 

88 PUT 
89 END 


$42+1 


$42 
VA_DEBUT 
($42) saute en début de 


programme... 


---ou retour à 
l'Applesoft 


le source du programe à adapter 


{format TEXT) 
TRITABLEAU 





Programme T.TRITABLE AU 


(Assembleur BigMac) 
NB : Sauvegarder cesour ce sous format TEXT (Voir texte) 


l FLAG EQU 
2 IND EQU 
J ECART EQU 
4 ECO EQU 
S START EQU 
6 FIN EQU 
7 ARTI EQU 
8 ART2 EQU 
9 CHA2 EQU 
10 MOVE EQOU 
11 CSTART  EQU 
12 CARTI EQU 
13 CART2 EQU 
14 TECART  EQU 


$6 * Flag réel.entier 
S9 * Indice du tri 
S7 * Ecart entre 
articles 
$8 * Ecart indice 0 
et tri 
$19 * Pointeur 1er 
élément OU tri 
$1B * Pointeur dernier 
élément 
SFA #*Pointeur temporaire 
SEC *Pointeur temporaire 
SFE *Pointeur temporaire 
$1E 
*Pointeur temporaire 
SEO *Pointeur ler 
élément COtableau 
SE2 * Pointeur COtableau 
SE4 * Pointeur COtableau 
S1D * Ecart ler tableau 


15 TECO EQU $E6 * Ecart élément ler 
tableau 

16 CECART EQU $E7 * Ecart COtableau 

17 PARTIEL EQU $E8 

18 SARA EQU $9B * Pointeur du 
tableau 

19 CHRGET EQU $B1 

20 CHRGOT EQU $B7 

21 FRMNUM EQU S$SDD67 * Evalue dans FAC 

22 CHKCOM  EQU S$SDEBE * Teste ',' 

23 MOVFM EQU $EAF9 + Transfert M vers 
FAC 

24 SOUST EQU $EBB2 + FAC - ARG 

25 GETADR EQU S$E752 * Rend entier FAC 

26 PTRGET EQU $SDFE3 

27 * ORG $S9AA6 indiqué à l'assemblage de DARWIN 

28 *# ------ Initialiisation AMPERSAND------ 

29 LDA #<ST 

30 STA $3F7 

31 LDA #>ST 

32 STA $3F6 

33 RTS 

F4 X = —— Début du progranne 

395: ST CMP #$54 * #Tit 

36 BEQ TRI 

37 CMP #$553 ts" 

38 BEQ SORT 

39 UMP  $DEC9 * SYNTAX ERROR 

40 SORT JSR CHRGET 

41 JSR CHKCOM 

42 JSR FRMNUM 

43 JSR GETADR 

44 DEY 

45 DEY 

46 STY PARTIEL 

47 UM TS 

48 TRI LDA #$FF 

49 STA PARTIEL 

50 USR CHRGET 

Siérs USR CHKCOM 

52 JSR  FRMNUM 

53 JSR GETADR * Rend FAC entier 

54 STY IND * Indice du tri 

55 UJSR CHKCOM 

56 JSR FPTRGET 

27 STA START 

58 STA ARTI 

59 STY  START#+I 

60 STY ART1+1 

61 JSR CHKCOM 

62 USR PTRGET 

63 STA FIN 

64 STY FIN+i 

65 JSR CALCUL * Initialise 
pointeurs 

66 LDA ECO 

67 STA TECO 

68 LDA ECART 

69 STA TECART 

70 STX FLAG 

71 JSR CHRGOT 

72 CMP #$2C *+ COTABLEAU ? 

13 BNE DEBUT * Non 

74 JSR CARGET 

75 USR PIRGET 

76 STA CSTART 

77 STA CARTI1I 

78 STY CSTART+i 

79 STY CARTI+1 

80 UJSR CALCUL 

81 LDA ECART 

82 STA CECART 

83 * —----—- Début du tri------ 
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EE 





84 DEBUT LDA #0 155 CMP FIN 


85 STA  IND * Flag d'échange 156 BNE SUITE 
86 SUIVANT CLC * Calcul adresse 157 LDA ART2+1 
2ém article 158 CMP FIN+1 
87 LDA TECART 159 BNE SUITE 
88 ADC ARTI 160 LDA IND 
89 STA ART2 161 BNE BOUCLE 
90 LDA #0 162 RTS 
91 ADC ARTI+1 163 * -——-—- nm 
92 STA ART2+1 164 R£EL LDA ART2 
93 CLC * Calcul adresse 165 LDY ART2+1 
2éme article 166 USR MOVFM * ART2 dans FAC 
94 LDA CECART 167 LDA ARTI 
95 ADC CARTI 168 LDY ARTI+] 
96 STA CART2 169 USR SOUST * ART2 - ARTI 
97 LDA #0 170 BPL RIEN * ART2 = ou > ARTI 
98 ADC CARTI+1 171 * ------ Déplacement des pointeurs------ 
99 STA CART2+1 172 DEPL SEC * Calcul élément 0 
100 LDA FLAG de ART1 
101 CMP #5 * Réel ? 173 LDA ART1 
102 BEQ REEL * Qui 174 SBC TECO 
103 TAY 175 STA ARTI 
104 DEY 176 LDA ARTI+1 
105 CMP #2 * Entier ? 177 SBC #0 
106 8EQ ENTIER * QUI 178 STA ARTI+] 
107 LDA (ARTI),Y 179 SEC * Calcul élément 0 
108 STA MOVE+1 de ART2 
109 LDA (ART2),Y 180 LDA ART2 
110 STA CHA2+1 181 SBC 1TEC0 
111 DEY 182 STA MOVE 
112 LDA ({ARTI),Y 
113 STA MOVE 
114 LDA (ART2),Y 
115 STA CHA2 
116 LDY PARTIEL p = 
117 COM INY 
de NT OR S VOUS Propose 
119 CMP  fMOVE),Y LC] < 
120 BCC DEPL + CHA2 < CHA Dominos # 
122 BNE RIEN * CHA2 > CHAI 
122 CPY #15 + Profondeur du tri | Thierry Haurie Apple J[+, //e, lle 
123 BCC COMP 
124 BCS RIEN 
125 ENTIER SEC Il est inutile de présenté le jeu de dominos; celui-ci bénéficie d'un 
126 LDA (ART2),Y graphisme très soigné (en couleur si vous disposez d'une carte 
127 SBC ({ARTI),Y "Chat Mauve") et les messages transmis par le programme sont, 
128 DEY au choix, en sas en Italien, en Allemand ou en Angiais. 
129 LDA (ART2),Y cs # cul 
130 SBC  (ART1),Y 
131 BPL RIEN * ART2 = ou > ARTI 
132 BMI DEPL #* ART2 < ARTI l 
ne ue XTED HINOS: 
134 BOUCLE  LDA CSTART * ler article is COLLE 
135 STA CART1 
136 LDA CSTART+] à ". 
137 STA CART1+1 F- E 
138 LDA START + ler article Ë Di] - 
139 STA ARTI LES) 
140 LDA START+] E 
141 STA ARTI+1 
142 BNE DEBUT à 
143 * ------ Article suilvant----——- 
144 SUITE LDA CART2 * Articie suivant 
145 STA CARTI C2 #8 DIE EI € 
146 LDA CART2+1 
347 TA CANTISI  RNEREREZ 
148 LDA ART2 * Article suivant 
149 STA ARTI 
150 LDA ART2+1 
151 STA ARTI+1 
152 BNE SUIVANT 
153 * ------ Test de fin du tri------ 
154 RIEN LDA ART2 
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183 LDA ART2+1 

184 SBC #0 

185 STA MGVE+] 

186 LDY TECART 
187 DEY 

188 STA IND 

189 SRAP LDA  (ARTI),Y 
190 PHA 

191 LDA (MOVE), Y 
192 STA (ART1I),Y 
193 PLA 

194 STA (MOVE), Y 
195 DEY 

196 BPL SWAP 

197 LDY CECART 
198 BEQ RIEN 

199 DEY 

200 SWAP1 LDA  (CART1),Y 
201 PHA 

202 LDA  (CART2),Y 
203 STA  (CARTI),Y 
204 PLA 

205 STA  (CART2),Y 
206 DEY 

207 BPL SWAP1 

208 BMI RIEN 

209 +? ——----- Sous programme 
210 CALCUL LDX #53 

211 BIT $11 

212 BMI DIM1 

213 LDX #55 

214 BIT $e1 
Programme 


60005 TEXT : 
SBF58:BITMAP 
O:L 


60006 P 
A$ = 


60007 
T 


es (48K de $00 
T = 


Récapitulation 
TRITABLE AU 


03 20 
4C 09 
18 BD 
6D 01 
3C 69 
01 85 
A9 97 
2C FE 
6c 42 
A9 97 
FO 1A 
DE 20 
67 DD 
E8 4C 
20 B1 
DD 20 
DE 20 


07 
A9 
8A 


A9 
0E 


4000- 
4008- 
4010- 
4018- 
4020- 
4028- 
4030- 
4038- 
4040- 
4048- 
4050- 
4058- 
4060- 
4068- 
4070- 
4078- 
4080- 


AD FD 
F5 BE 
8E 20 
00 01 


8F 
90 
58 
69 
00 
3E 
A6 


* Positionne flag 


+ échange 2 dans 1 


+ échange 1 dans 2 


* échange 2 dans 1 


* échange 1 dans 2 


recherche pointeurs 


* Chaine ? 
+ Oui 


* Réel ? 





RAM.BITMAP 


HOME :Y = 48984: REM 


0: VTAB 9: HTAB ll: 
"0020406080A0": 
1 TO 11 STEP 2: PRINT "S" M 
ID$S (AS$,7,2): NEXT : 
POKE 33,32: POKE 32,4: PRIN 
"PAGES MEMOIRE PROTEGEES ( 
PRODOS)": PRINT "sur 192 pag 


FOR I 


VTAB 1 


à $BF)": PRIN 


PRINT SPC( 16} 2411111 
111111110123456789ABCDEF 0123 


4088- E3 
4090- 84 
4098- 85 
40A0- 08 
40A8- 06 
4080- 20 
40B8- 65 
40c0- 99 
40C8- 09 
40D0- A9 
40D8- E7 
40E0- E3 
40E8- 68 
40F0- FA 
40F8- 681 
4100- A4 
4108- 58 
4110- 32 
4118- FC 
4120- EO 
4128- 19 


215 BPL DIMi + Qui 
216 LDX #52 
217 DIMI LDY #$4 * Dimension ? 
218 LDA  (SARA),Y 
219 CMP #51 * Une seule ? 
220 BEQ D1 * Qui 
221 LDY #$8 
222 LDA  {SARA),Y * Taille ière 
dimension 
223 D1 TAY 
224 LDA #0 
225 STA ECART 
226 STA ECO 
227 STA CECART 
228 CLC + Calcul écart entre 
articles 
229 D2 TXA MS me 2 
230 ADC ECART 
231 STA ECART 
232 DEY 
233 BNE D2 
234 LDY IND 
235 BEOQO D4 
236 CLC + écart élément 0 et 
Cri 
237 D3 TXA AND TN. 
238 ADC ECO 
239 STA ECQ 
240 DEY 
241 BNE D3 
242 D4 RTS 
456789ABCDEF" 
60010 FOR I = O0 TO 23:X = PEEK ( 
Y + I}: REM LES 24 OCTETS D 
E LA BIT-MAP 
60020 FOR J = 1 TO 8: REM LES 8 B 
ITS DE CHAQUE OCTET 
60030 IF X > = 128 THEN X = 2 * 
X - 256:P = P + 1: PRINT “P" 
;: GOTO 60050: REM CAS BIT=1 
60040 X = X * 2:L = L + 1: PRINT " 
.";: REM CAS BIT-=0 
60050 NEXT J: NEXT I: POKE 33,40: 
POKE 32,0: PRINT 
60055 PRINT "P = protégée ; au to 
tal :e'4p4 PRINT ", = libre 
; austOtal : "“L: PRINT 
19 85 FA 84 1A 4130- 94 AS E4 85 E2 A5 E5 85 
8E DE 20 E3 DF 4138- E3 AS 6C 85 FA A5 FD 85 
1C 20 01 99 AS 4140- F8 DO 86 AS FC C5 1B DO 
A5 07 85 1D 86 4148- EB A5 FD CS IC DO E2 A5 
00 C9 2C DO 15 4150- 09 DO CC 60 A5 FC A4 FD 
20 £3 DF 85 EC 4158- 20 F9 EA A5 FA A4 F8 20 
El 84 E3 20 01 4160- 82 EB 10 DF 38 AS FA £5 
85 E7 A9 00 85 4168- E6 85 FA A5 FB E9 00 85 
1D 65 FA 85 FC 4170- F8 38 AS FC ES E6 85 IE 
F6 85 FD 18 A5 4178- A5 FD E9 00 85 2F' A4 1D 
85 E4 A9 00 65 4180- 88 85 09 81 FA 48 B1 1E 
A5 06 C9 O5 F0 4188- 91 FA 68 91 1E 88 10 F3 
C9 02 F0 22 B1 4190- A4 E7 FO AF 88 81 E2 48 
81 FC 85 Fr 88 4198- 81 E4 91 E2 68 91 E4 88 
1£ 81 FC 85 FE 41A0- 10 F3 30 9F' A2 03 24 11 
81 FE DI IE 90 41A8- 30 08 A2 05 24 81 10 O2 
CO OF 90 F3 B0 4180- A2 02 AO 04 B1 9B C9 O1 
FC F1 FA 88 B1 4188- F0 04 AO 08 B1 9B A8 A9 
10 26 30 45 A5 41C0- 00 85 07 85 08 85 E7 18 
AS £1 85 E3 A5 41C8- 8A 65 07 85 07 88 D0 F8 
A5 14 85 FB DO 41D0- A4 09 F0 09 84 65 08 


41D8- 






































































omp 


e programme proposé 

ici est écrit en langage 

machine pour des 

raisons évidentes de 
rapidité et de facilité d'emploi. Il 
occupe très peu de place en 
mémoire (moins de 3 pages) et il 
se charge avec RENUMBER car 
il utilise aussi l'ampersand et 
parce qu'ils semblent faire la 
paire ! 


Bien entendu, ce programme tient 
compte de tous les GOTO, 
GOSUB, ONERR GOTO et 
autres IF... THEN. Il en profite 
au passage pour supprimer les 
REMS, et raccourcir les noms des 
variables mais il ne raccourcit 
aucune instruction &, 
CALL ou DATA : en 
effet, la syntaxe de ces 
instructions est elle- 
même très variable ! 





Les lignes ainsi obtenues 


donne un résultat différent du 
premier : en effet la longueur 
utile” des lignes est déterrninee 
avant de raccourcir les variables. 
Ceci peut se produire si les noms 
des variables sont très longs. 


Un autre détail involontaire, il ne 
touche pas à une éventuelle ligne 
65535, j'ai préféré laisser faire. 


Utilisation 


Pour le charger, faire 

"BRUN COMP+RENUM". 

Il se place en $8B00, il descend 
HIMEM et vectorise l'amper- 
sand. 

Pour compacter, faire simple- 
ment : "&COMPACTE". 





Comment faire ? 


Pour utiliser le compacteur, il suffit de faire: 


peuvent contenir jusqu'a "BRUN COMP+RENUM" 
$F8 (248) caractères ou  PUÏS pour compacter : 
tokens ce qui déplait &COMPACTE 


fortement à RENUM- 





je 


Sylvie Gallet 


Fonctionnement 


Il commence par faire un tableau 
de toutes les lignes appelees par 
GOTO, GOSUB et IF... THEN 
GOTO. Il procède ensuite au 
compactage des lignes après avoir 
exploré chaque ligne pour savoir 
si elle contient un IF, si elle est 
adressée par GOTO, et ses 
acolytes, et pour connaitre sa 
longueur “utile” (c'est-à-dire sans 
les REMS). 

Il termine en mettant à jour le 
pointeur de fm de programme. 


Il faut noter que dans le cas où le 
programme nest pas chargé 
comme à l'accoutumée en $801 
(2049), le fonctionnement du 
compacteur n'est pas 
perturbé. 


Remarque : Il a fallu 
faire une petite rustine à 
CHRGET pour qu'elle 
ne saute pas d'office tous 
les $20 qu'elle rencontre, 
$20 se trouvant aussi 
bien dans les adresses de 


BER et à-PIL'E, Sur la 
plupart des programmes 
que j'ai compactés, j'ai 
noté un gain de place 
d'environ 10 à 15 % 
avec des résultats 
spectaculaires sur des 
programmes très docu- 
mentés (Gescompte...) 


Siune ligne ne contenant 
qu'une REM est adressée 
par un GOTO, GO- 
SUB, il conserve 


ligne avec seulement un 
":", Il est possible qu'un 
deuxième compactage 
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Pour obtenir le fichier COMP+RENUM, vous 
devrez suivre les étapes suivantes : 


* Si vous n'avez pas la disquette Pom's, saisir 
sous moniteur la récapitulation COMP, puis fa 
sauvegarder (BSAVE COMP,A$8B00,L$2FF). 

Exécuter le programme FAÏT EXEC : celui-ci 
crée un fichier EXEC qui va récupérer la partie 
binaire du programme RENUMBER de la 
disquette Maître DOS 3.5. 

Faites alors EXEC CREE COMP+RENUM. 

On vous demande successivement de mettre 
la disquette Maître contenant RENUMBER, 
puis la disquette contenant le fichier COMP, et 
enlin la disquette qui recevra le fichier final 
COMP+RENUM. 


lignes que dans les 
numéros de lignes. 


Le lecteur pourra 
certainement apporter les 
petites modifications 
nécessaires pour obtenir 
un programme encore 
plus court : lorsque la 
ligne adressée par un 
GOTO où un GOSUB ne 
comprend qu'une REM, 
pourquoi ne pas se 
brancher sur la ligne 
suivante par exemple ? 





Programme 


FAIT EXEC 


Un exemple 


Le programme ‘Agenda’, publié page 8 de ce numéro. 


AVANT : 1311 octets APRES : 858 octets 
(Gain 34 %) 





10 TEXT : HOME : SPEED= 255:D$ = CH 
R$ (4) 
100 VTAB 12: PRINT " CREATION DU FI 10 HOME:ONERR GOTO 570 





CRIER CREE COMP+RENUM" 100 PRINT“ COMPOSITION AUTOMATIQUE DE": PRINT “ 
= 17 "m. NUMERO TELEPHONIOUE": PRINT CHARS (4);"BLOA 
- 140N=0 
130 PRINT "TEXT:HOME: SPEED-255" 1SON=N + 1: FORJ = 1 TO 2: READ TS(N,J): NEXT J: GOTO 
140 PRINT "PRINT"; CHR$ (34);"INSERE 150 
Z LA DISQUETTE CONTENANT RENUMBER 200 VTAB {8): PRINT ‘Utilisez les flèches “;: INVERSE : PRINT * 
: CHRS (34);":PRINT"; CHRS (34); =>": NORMAL : PRINT “et “;: INVERSE : PRINT "<=": NOR 
"PUIS PRESSEZ UNE TOUCHE " CHRS ( ne ÉCUR “pour sélectionner le nom Gelfaboner PRINT 
34);": WAIT -16384,128:POKE -1636 ba HET Validez avec la touche RETURN": = 0 
8,0" ‘260 A% = ASC(AS): IF A% < > 13 AND A% < > 21 AND A% 
160 PRINT "LOAD RENUMBEÈR" < > 8 THEN 260 
164 PRINT "POKE 2968,96: POKE 2792,1 280 IF A% = 13 THEN 360 
69:POKE 2793,200:POKE 2800,169:PO 290 IFA%=21THENI=1+1 
KE 2801,10:CALL 2791" 300 IF A% = 8THENI=1-1 
165 REM SORTIE DE RENUMBER Fu. M MER PU — ns | 
PAR RTS AU LIEU DE JUMP $D64B (EN 330 VTAB 15: CALL - 868: PRINT TS${I,1),T$(1,2): GOTO 250 
$B98) 360 X$ = T${(1.2): POKE 49241,0: FOR { = 1 TO 700: NEXT !: HO 
167 REM MODIF DE RENUMBER ME : PRINT : PRINT ‘Je compose le numéro ": FOR1=1 
168 REM S$SAFO0:LDA $S7A REMPLACE TO LEN{XS)'A = ASC ( MIDS (X$,1,1)) + 128: POKE 7,A: 
PAR LDA #$0A ET SAE8:LDA 579 REM CALL 768: PRINT CHRS (A);: FORT = 1 TO 600: NEXT T 
PLACE PAR LDA 4SC8 ET PE 
170 PRINT "PRINT"; CHR$ (34); "INSERE 1 STEP - 1: VTAB (15): HTAB (11): PRINT INT ({/ 50);" 
Z LA DISQUETTE CONTENANT COM"; C secondes": NEXT 1: POKE 49240,0: GOT O 580 
HR$ (34);":PRINT"; CHR$ (34); "PUI 570 JF PEEK (222) = 42 THEN 200 
S PRESSEZ UNE TOUCHE"; CHRS (34); 580 HOME : RESTORE : PRINT “Pret pour un autre appel ….": 
M: WAIT -16384,128:POKE-16368, 0" é GOTO 140: DATA RENSEIGNEMENTS,3612: DATA AUTRES 
190 PRINT "BRUN COMP CL RENSEIGNEMENT $, 3611: DATA JULIETTE,12345678 
195 PRINT "PRINT"; CHRS (34);"INSERE 
Z LA DISQUETTE QUI CONTIENDRA 
COMP+RENUM"; CHR$ (34);":PRINT'"; NDLR : Une ligne telle que la n° 360 de ce programme 
CHRS (34); "PUIS PRESSEZ UNE TOUC compacté re manquera pas de vous poser des problèmes si 
HE"; CHRS (34);": WAIT -16384,128 vous voulez la modifier maintenant. Pour cette raison, il est 
:POKE-16368, 0" sage de ne pas se séparer du prograrvre original. 
235 PRINT "BSAVECOMP+RENUM,AS8B00,LS$S Si vous avez malencontreusement perdu votre version non 
B00" compactée, vous utiliserez avec intérêt le DECRUNCHER 
240 PRINT D$"CLOSE "NOMS$ de Patrice Neveu que nous publierons prochainement. 
7 A A 8B58- FF AO 00 A9 EA 85 CO 85 8BEO- 4F 47 52 41 4D 4D 45 20 
Récapitulation 8B60- C1 20 B7 00 20 B1 00 C9 8BE8- 45 4E 20 4D 45 4D 4F 49 
8B68- 00 DO OC A9 FF AC 00 91 8BF0- 52 45 20 2A 2A OD OD 00 
COMP 8B70- FE C8 91 FE 4C F8 8B 20 8BF8- A5 68 85 B9 85 EF A5 67 
8B78- B] 00 20 B1 00 20 B1 00 8C00- DO 02 C6 B9 18 69 FF 85 
8B80- C9 00 DO 06 20 B1 00 4C 8C08- B8 DO 02 C6 EF 18 69 FF 
8B00- A9 4C 8D F5 03 A9 14 8D 8B88- 5B 8B C9 AB FO OF C9 B0 8C10- 85 EE A9 00 85 EB A9 03 
8B08- F6 03 95 73 A9 8B 8D F7 8B90- FO OB C9 C4 DO E7 20 B1 8C18- 85 EC 85 19 85 18 20 D8 
8B10- 03 85 74 60 C9 43 FO 03 8B98- 00 BO ES 90 03 20 B1 00 8C20- 8C 20 B1 00 85 1D 20 B1 
8B18- 4C 00 8E AC 00 CO 07 BO 8BA0- 20 OC DA 48 AS 50 AO 00 8C28- 00 85 1E 20 12 8D 20 49 
8B820- 0B 20 B1 00 D9 34 8B DO 8BA8- 91 FE E6 FE DO 02 E6 FF 8C30- 8D AS 19 DO 41 AS 1C DO 
8B28- 08 C8 DO F1 20 B1 00 FO 8BB0- A5 51 91 FE E6 FE DO O2 8C38- 3D AS 1A FO 70 A5 18 FO 
8B30- OA 4C C9 DE 4F 4D 50 41 8BB8- E6 FF 68 C9 2C FO DE DO 8C40- 4F C9 F8 BO 31 18 65 lA 
8B38- 43 54 45 AS 67 85 B8 A5 8BCO- BF A0 00 B9 D1 8B FO 06 8C48- BO 04 C9 F8 90 35 AS 1B 
8B40- 68 85 B9 A0 01 B1 67 DO 8BC8- 20 5C DB C8 DO F5 4C B3 8C50- DO 24 A9 F8 38 ES 18 85 
8B48+ 03 4C C1 8B AS AF 18 69 8BDO- FE OD OD 2A 2A 20 07 50 8C58- F9 20 69 8D A5 FC FO 16 
8B50- 05 85 FE A5 B0 69 00 85 8BD8- 41 53 20 44 45 20 50 52 8C60- A2 00 86 06 86 07 A9 3A 
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5. 
Programme COMPACTEUR Haut voies 


(Assembleur Lisa 2,5) 49 OUTDO  EQU $DBSC 
50 ; 
1; Gi ; 
À RATRROTARRÉTRESRERE 32 ORG $8B00 
3 * 53 OBJ $B00 
4 * COMPACTE UN * SA 
S * PROGRAMME BASIC * 55 A: 
6 * ET SUPPRIME LES * 56 ; 
74 REMARQUES * 57 LDA #$4C 
8 * S.GALLET 24-8-85 * 58 STA AMPER 
? 9 * A 59 LOA 4#TEST 
10 errecxreccemenerrenrt 60 STA AMPER+1 
11; 61 STA HIMEM 
12 CHRGET  EPZ $B1 62 LDA /TEST 
13 CHRGOT  EPZ $B7 63 STA AMPER+2 
14 TXTTAB EP2 $67 64 STA HIMEM+] 
15 TXTPTR EPZ $B8 65 RTS 
16 TEMP EPZ $FD 66 : 
17 TABLEAU EPZ S$SFE 67 TEST: 
18 GOTO EPZ $AB 68 CMP #'C* 
19 GOSUB  EPZ $B0 63 BEQ >1 
20 THEN EPZ $c4 70 JMP RENUMBER 
21 CAR.ECR EPZ SEE 71 “1 LDY #50 
22 L EPZ $Eg 72 "2 CPY #57 
23 DEUXPT  EPZ S$FC 73 BCS >3 
24 LS EPZ $EB 74 JSR CHRGET 
25 LCLONG EPZ $18 75 CMP COMMANDE, Y 
26 LCIF EPZ $19 76 BNE >4 
27 LSLONG  EPZ $1A 77 INY 
28 LSIF EPZ $1B 78 BNE <2 
29 LSGOTO EPZ2 SIC 79 *3 JSR CHRGET 
30 NUM.B EPZ $1D 80 BEQ INIT 
31 NOM.H EPZ $1E 81 “4 JMP STXERR 
32 IF EPZ $SAD 82 COMMANDE ASC ‘OMPACTE" 
3 3 REM EP£ $B2 83 ; 
34 AMPRS EP2 SAF :TOKEN DE & 84 INIT: 
35 CALL EP4 $8C 85 LDA TXTTAB 
36 DATA EPZ $83 86 STA TXTPTR 
37 PRGEND EPZ Saf 87 LDA TXTTAB+1 
38 LMAX EPZ $F@ 88 STA TXTPTR+1 
39 ONERR EPZ SAS 89 LDY #$1 
40 LINNUM EPZ $50 90 LDA (TXTTAB),Y 
41 HIMEM EPZ $73 91 BNE >0 
42 TEMPI EPZ $06 92 JMP PASPROG 
43 TEMP2 EPZ $07 93 *0 LDA PRGEND 
44 AMPER  EQU $03F5 94 CLC 
45 BASIC EQU $FEB3 95 ADC #55 
46 LINGET EQU SDAOC 96 STA TABLEAU 
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97 
98 
99 
100 
101 
102 


103 

104 

105 

106 
107 
108 
105 
110 
111 

112 

113 

114 

115 
116 
rhri 
118 
149 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 

132 
133 
134 
133 
136 
137 
138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
158 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 


LDA PRGEND+1 
ADC #$0 
STA TABLEAU+1 
LDY #$0 


ÿ 


;CREE UN TABLEAU DE TOUS LES NUMEROS DE LIGNES 


ADRESSES 
; PAR GOTO, GOSUB ET THEN 


‘ 


DEBUT: 
LDA #$EA 
STA $CO 
STA $C1 
SR CHRGOT 
JSR CHRGET 
CMP #50 
BNE >0 
LDA 4$FF 
LDY #$0 
STA {TABLEAU), Y 


STA {TABLEAU),Y 
JMP COMPACTE 


*Û JSR CHRGET 
JSR CHRGET 
es à JSR CHRGET 
CMP #$0 
#3 BNE >4 
JSR CHRGET 
JMP DEBUT 
*4 CMP #GOTO 
BEQ >5 
CMP #GOSUB 
BEQ >5 
CMP THEN 
BNE <1 
JSR CHRGET 
BCS <2 
BCC >6 
*5 JSR CHRGET 
6 JSR LINGET 


LDA LINNUM 
LDY #$0 
STA (TABLEAU),Y 
INC TABLEAU 
BNE >7 
INC TABLEAU+1 
97 LDA LINNUM+1 
STA (TABLEAU),Y 
INC TABLEAU 
BNE >8 
INC TABLEAU+1 
*8 PLA 
CMP #',' 
BEQ <5 
BNE <2 
PASPROG LDY #50 
°0 LDA MSG, Y 
BER >1 
YSR OUTDO 


BNE <0 
3 JMP BASIC 
MSG HEX ODOD 
ASC "tr 
HEX 07 


sUNE PETITE RUSTINE 
:SUR CHRGET 


ASC ‘PAS DE PROGRAMME EN MEMOIRE ++' 


HEX 0OD0D00 








168 COMPACTE: 

De Di 7 

170 7 

171 ;LCLONG ET LCIF CONCERNENT LA LIGNE 


172 9 EN COURS D'ECRITURE 

173 ;LSLONG, LSGOTO ET LSIF CONCERNENT 
74" LA LIGNE SUIVANTE 

17515 

176 ; 


177 ; AU DEPART, SI LE PROGRAMME BASIC 
178 ;EST IMPLANTE EN $801: 


179 ; - CHRGET = $800 

180 ; - CAR.ECR = S7FF 

181 ; 

182 ; 

183 LDA TXTTAB+1 

184 STA TXTPTR+1 

185 STA CAR.ECR+1 

186 LDA TXTTAB 

187 BNE >0 

188 DEC TXTPTR+1 

189 “0 CLC 

190 ADC 4SFF 

191 STA TXTPTR 

192 BNE 21 

193 DEC CAR.ECR+1 

194 *1 CLC 

195 ADC 4SFF 

196 STA CAR.ECR 

197 LDA #50 

198 STA LS 

199 LDA 4503 

200 STA LS+1 

201 STA LCIF 

202 STA LCLONG 

203 ; 

204 *0 JSR LITADR 

205 JSR CHRGET 

206 STA NUM.B 

207 JSR CHRGET 

208 STA NUM.H 

209 JSR GOTO? 

210 JSR LONG.IF 

211 ; 

212 LDA LCIF ;3SI LCIF<>0 OU SI 

213 BNE >3 ;LSGOTO<>0, IL NE 

214 LDA LSGOTO ;FAUT PAS "COLLER* 

215 BNE >3 ;LES 2 LIGNES 

216 : 

217 LDA LSLONG ;SI LSLONG = O0 => 

218 BEQ >7 ;RIEN À RECOPIER 

219 : 

220 LDA LCLONG ;>SI LCLONG = 0 -> 

221 BEQ >5 ;ON COPIE LS TELLE 

DDD QOELLE 

223 ; 

224 CHP #LMAX :5I LCLONG >= LMAX 
> 

225 BCS >3 ;SON COMPTE EST BON 
t 

226 CLC 

227 ADC LSLONG 

228 BCS >1 

229 CMP #LMAX ;SI LCLONG+LSLONG < 

230 BCC >4 ;LMAX ON PEUT COLLE 
R LC ET LS 

231 ; 


232 ;ICI, ON DOIT SE CONTENTER DE COLLER UN MORCEAU 
233 ;DE LS AU BOUT DE LC, À CONDITI®N QUE LS NE 

234 ;CONTIENNE PAS DE IF (NI ONERR GOTO) ET QU'IL Y 
235 ; AIT UN "!:" SEPARATEUR D'INSTRUCTIONS. 

236 ; 


275 
276 
277 
278 
279 
280 
281 

282 
283 
284 
285 
286 
287 
288 
289 
290 
291 


292 ; 


293 
294 


295: » 


296 
297 
298 
299 
300 


301 
302 ; 
303 
304 
305 
306 
307 


#1 LDA LSIF 
BNE >3 
LDA #LMAX 


SBC LCLONG 
STA L 
JSR CHERCHE 
LDA DEUXPT 
BEQ >3 
LDX #50 
STX TEMP1 
STX TEMP2 
LDA #':" 

LA JSR ECRIRE 
INC LCLONG 
DEC LSLONG 
JSR CHRGET 
DEC DEUXPT 
BNE <2 

; ENTREE ICI SI ON NE COMPACTE PAS 

; LES DEUX LIGNES 


d 
s 


°3 JSR CHAINER 
JSR COPIENUM 
LDA #$0 
STA LCLONG 
JMP >5 
: ENTREE ICI SI ON COMPACTE LES 
; DEUX LIGNES 
La 
#4 LDY #$0 
LDA #':' 
CMP (CAR.ECR),Y 
BEO >5 
JSR ECRIREZ 
INC LCLONG 
; ENTREE ICI SI LCLONG=0 ET 
; LSLONG<>0: ON RECOPIE LS DANS LC 
5 IDA LSIF 
STA LCIF 
IOX #$0 
STX TEMP1 
STX TEMP2 
*6 JSR CHRGET 
CMP #5$0 
BEQ >8 
CMP #REM 
BEQ >7 
JSR ECRIRE 
INC LCLONG 
JMP <6 
# ENTREE ICI SI LSLONG=0, ON FINIT 
; DE LIRE LA LIGNE SANS RECOPIER 


F 


NZ JSR CHRGET 
CMP #$0 
BNE <7 
r8 JMP <0 ;:ICI,ON VIENT DE LI 
; RE LE 0 DE FIN DE 
LIGNE 
SOUS PROGRAMMES 
CHAINER : 
LDA LCLONG 254 LC VIDE, 


308 
309 
310 
311 
312 
313 
314 
325 
316 
947 
318 
319 
320 
321 
322 
323 
324 
325 
326 
427 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
291 
352 
353 
354 
355 
356 


A7 
358 ; 


359 


360 
361 

362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
TT 
378 


A1 


>1 ;ECRIT : 
#4"; 
ECRIRE2 
#$0 
ECRIRE2 
ECRIRE2 
CAR.ECR 
(LS), F 


#ECRIT LE 0 DE 
;FIN DE LIGNE 


CAR.ECR+1 
(LS Y 
LS+1 
CAR.ECR 
Ls 


;LIT LES 2 PREMIERS OCTETS DE LS 
3SI 00 00 -> FIN DU PROGRAMME BASIC 


î 


LITADR: 


F1 


COPIENUM: 


‘ 


‘ 


;CHERCHE SI LS EST APPELEE PAR SOTO, 


CHRGET 

CHRGET 

#50 

>1 

CHAINER :ICI LE PROGRAMME 
#50 :EST TERMINE 
ECRIRE2 

ECRIRE2 

ECRIRE2 

CAR .ECR 

PRGEND 

CAR.ECR+1 

PRGEND+1 

#$F0 

$co 

#$EF 

sC1 

BASIC 


ECRIREZ 
NUM.B 
ECRIREZ 
NOM.H 
ECRIRE? 


GOSUB OÙ TH 
EN GOTO 


SI QUI -> LSGOTO=1 
SI NON -> LSGOTO=0 


5 


GOTO?: 


A1 


- 


PRGEND 


#$4 
TABLEAU 
PRGEND+1 
#50 
TABLEAU +1 
#50 
LIRETABL 
NUM .B 

>3 
LIRETARL 
#$FE 

<1 

#$0 
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379 STA LSGOTO 451 STY DEUXPT 


380 RTS 452 *3 INY 

381 *3 JSR LIRETABL 453 CPY L 

382 CAP NUM.H 454 BCC <1 

383 BNE <2 455 BEQ <1 

384 LDA #$1 456 "4 RTS 

385 STA LSGOTO 457 ; 

386 RTS 458 ;DANS ‘ECRIRE: 

387 ; 459 :SJI TEMP1=1: ON EST EN TRAIN DE RECOPIER 

388 LIRETASL: 460 ;UNE CHAINE SANS LA MODIFIER 

389 INC TABLEAU 461 ;SI TEMP1=0: TOUT DEPEND DE TEMP2 

390 BNE >4 462 ; 

391 INC TABLEAU+1 463 ; SI TEMP2=1: ON EST EN TRAIN DE COPIER UNE 
392 "4 IDA (TABLEAU},Y 464 ; INSTRUCTION QUI CONTIENT &, CALL OU DATA 
393 RTS 465 :DANS CE CAS, ON COPIE TOUT JUSQU'AU ":" 

394 ; 466 :SEPARATEUR 

395 ; 467 ; SI TEMP2-0: L'INSTRUCTION NE CONTIENT NI & 
396 ; 468 ;NI CALL NI DATA: LES TEST DETERMINENT ALORS 
397 :CHERCHE LA LONGUEUR DE LS {LSLONG}) 469 ; SI ON TRAITE UN NOM DE VARIABLE OU UNE 

398 ;ET LA PRESENCE DE IF OU DE ONERR 470 ; CONSTANTE 

399 ;SI NI IF, NI ONERR -> LSIF=0 471 ;DANS LE CAS D'UNE VARIABLE X INDIQUE LE NOMBRE 
400 ;SINON -> LSIF<>0 472 ;DE CARACTERES DEJA ECRITS 

401 ; 473 ;X EST REMIS À O0 PAR TOUT CARACTERENON ALPHANUME 
402 LONG.IF: 474 ;RIQUE 

403 IDY #$0 475 ;TEMP2 EST REMIS À 0 PAR UN ':' SEPARATEUR OU PA 
404 STY LSIF 476 ;R UN O DE FIN DE LIGNE 

405 STY LSLONG 477 : 

406 INY 478 : 

407 *1 IDA {TXTPTR),Y 479 ECRIRE: 

408 BEQ >4 480 STA TEMP 

409 CMP $REM 481 CMP #DATA 

410 BEQ >4 482 BEO >0 

411 CMP #IF 483 CMP $#AMPRS 

412 BEO >2 484 BEQ >0 

413 CMP $ONERR 485 CMP #SCALL 

414 BNE >3 486 BNE >1 

415 *2 STY LSIF 487 “0 LDA 851 

416 *3 INY 488 STA TEMP2 

417 BNE <1 489 UMP >7 

418 “4 DEY 490 *1 CMP #'r" 

419 STY LSLONG 491 BNE >2 

420 RTS 492 LDA TEMPI 

421 ; | 493 EOR #$1 

422 ; 494 STA TEMP1 

423 ; 495 JMP >7 

424 ;POUR COPIER UN MORCEAU DE LS, 496 "2 LDA TEMP1 

425 ;CHERCHE SI DANS LES L PREMIERS 497 BNE >7 

426 ;CARACTERES IL Y À UN : NON 498 IDA TEMP 

427 ; INCLUS DANS DES GUILLEMETS 499 CMP #':! 

428 ;SI OUI -> DEUXPT = LA DERNIERE 500 BNE >3 

429 ; POSITION TROUVEE 501 IDA #8$0 

430 ;:SI NON -> DEUXPT=0 502 STA TEMP2 

431 ; 503 JMP >7 

432 CHERCHE : 504 *3 LDA TEMP2 

433 LDY 8$0 505 BNE >7 

434 STY TEMP 506 LDA TEMP 

435 STY DEUXPT 507 CMP #'0" 

436 INY 508 BCC >7 523 “6 INX 

437 CPY L 509 CMP #'Z'+1 524 EDA TEMP 
438 BCS >4 510 BCS >7 525 ECRIRE2: 

439 *1 LDA (TXTPTR},Y 511 CMP #'9'+1 S26 IDY #$0 
440 BEQ >4 512 BCS >4 527 INC CAR.ECR 
441 CMP $#'°! 513 CPx #50 528 BNE >9 
442 BNE >2 S14 BEQ >7 529 INC CAR.ECR+1 
443 LDA TEMP 515 BNE >5 530 *9 STA {CAR.ECR),Y 
444 EOR 4501 516 “4 CP #'A' 531 RTS 

445 STA TEMP 517 BCC >7 532 : 

446 UMP >3 518 *5 CPX 852 533 : 

447 *2 CMP 4':" 519 BCC >6 534 B: 

448 BNE >3 520 DEC LCLONG 535 LONGUEUR EQU B-4 
499 LDA TEMP 521 RTS 536 >; 


450 BNE >3 522 27 LDX #$FF 537 END 














es utilitaires de recopie 
graphique des écrans 
haute-résolution sont 
très nombreux, dispo- 
nibles sur le marché commercial, 
ou publiés par Pom's. En revan- 
che, les écrans graphiques basse 
résolution semblent être ignorés. 


Je vous propose ici un petit 
programme qui permet de générer 
des impressions papier sembla- 
bles à la haute-résolution à partir 
des graphiques basse-résolution 
de l'Apple. Ceci donne un aspect 
beaucoup plus agréable, en éli- 
minant l'aspect terne des impres- 
sions traditionnelles. 


Le programme DHGR utilise la 
propriété de l'ImageWriter et de la 
DMP de pouvoir créer facilement 
sa propre police de caractère, et 
n'est donc exploitable qu'avec ces 
imprimantes. 


Utilisation 


Le programme fonctionne sous 
DOS 3.3 ; il se loge à l'adresse 
$300 (768 en décimal) sur une 
longueur de $F0 octets. Comme il 
écrase certaines adresses du DOS 
contenues en $3D0-$3EF, il peut 
être nécessaire de rebooter après 
son utilisation. 


HCGR fonctionne sur tous les 
types d'Apple // pourvus d'une 
ImageWriter connectée au slot 1. 
Il s'initialise par un simple 
"BLOAD HCGR" et est alors 
exécuté aussi souvent que néces- 
saire par "CALL 768". 


Les fichiers de la disquette Pom's 
sont : 


HCGR , le code objet exécutable 
HCGRSS, le source en Big Mac 
HCGR.DEMO), la démonstration 


Principe de 
fonctionnement 


HCGR effectue l'impression de la 
page graphique basse résolution 
de l'Apple (accessible sous 
Applesoft par l'instruction GR"). 
Cette page correspond à une grille 
de 40 x 48 pavés, chacun ayant 
une couleur parmi 16 disponibles. 


En mémoire, les pavés sont re- 
groupés deux à deux pour former 
un octet. Il serait possible de 
considérer chaque octet comme un 
code ASCII et d'imprimer le 
caractère correspondant. Le résul- 
tat ne serait cependant guère satis- 
faisant car l'écran graphique serait 






alors imprimé sous forme d'une 
suite de lettres, de chiffres ou de 
caractères de ponctuation. 


Afin d'améliorer cette présen- 
tation, HCGR utilise la possibilité 
de générer une police de carac- 
tères sur l'imprimante 
ImageWriter. Cela permet de 
définir des carac- tères en fonction 
de la couleur du pavé graphique : 
chaque caractère est imprimé en 
fonction d'une matrice 8 x 8 
contenue dans la mémoire de 





Bernard 
France 


Lessses 
seoseses 

» 

LI 
sonuseus © 
Loevsus à 


l'imprimante ; on n'a donc qu'à 
redéfinir ces matrices pour obtenir 
des caractères très clairs si le pavé 
graphique affiche une couleur 
claire, et le contraire dans le cas 
.… contraire. 


Fonctionnement du 
programme 


Le programme doit tout d'abord 
sélectionner l'imprimante (PR#1). 
Il faut ensuite créer une police de 
caractères personalisés, ce qui est 
réalisé par la séquence suivante : 


+ initialisation ($09,$5A,$0D) ; 

* largeur des caractères fixée à 8 
points d'aiguille ($1B,$2D) ; 

+ _ début de définition ($1B,$49) ; 

“définition de chaque caractère : 
code ASCII suivi du code 
largeur ($48 pour 8 points) et 
celui de la nouvelle matrice : 

° _ finde définition ($04) ; 

. sélection des caractères ‘Pica’ 
($1B,$4E) ; 

-« interligne de 16/144 ($1B,$54, 
$31,$36) ; 

" options simple largeur, 
impression bidirectionnelle, 5 
sauts de lignes ($OF,$1B,$3C, 
$1F,$35). 

Il reste à examiner chaque pavé de 

la page graphique basse résolution 

implantée aux adresses de $400 à 

$7FF, de le convertir en carac- 

tère imprimable (un pavé blanc, 
donc de couleur $F, est converti 
en $3F correspondant au caractère 

"9" qui est imprimé comme un 

carré plein). 


On utilise la routine SCREEN du 
moniteur (située en $F871) qui 
renvoie, pour une ligne et une 
colonne données, la valeur du 
code couleur. 


Enfin, on redonne la main au 
DOS 3.3 en effectuant un PR#0. 











0 
Programme 0,0, 1010 DATA 4,4,4,4,4,4,4,4,4,4,4, 





HCGR.DEMO 1004 DATA 0,0,0,0,0,0,1,0,0,0,0, 4,4,4,4,4,4,4,4,5,5,1,3, 3, 
= 0:2:0,0:;2,070/3,0,05;0; 0,3; 3,6,1,6,6,6,6,6,6,6,6,6,6, 
0,0,0,0,0,0,0,0,0,5,0,0,0, 6,6,6 
10 HOME : PRINT "DEMONSTRATION 0,0,0 1011 DATA 4,4,4,4,4,4,4,4,4,4,4, 
DE HCGR" 1005 DATA 0,0,0,0,0,0,1,0,0,0,0, 4,4,4,4,4,4,4,2,5,5,5,2,2, 
11 PRINT : PRINT "ALLUMEZ VOTR 0,2,0,0,2,0:053,0:0%0»0,3, 2,1,1,6,6,6,6,6,6,6,6,6,6, 
E IMAGEWRIIER" 0,0,0,0,0,0,0,0,0,5,0,0,0, 6,6,6 
12 PRINT CHRS$S (4);"BLOAD HCCR 0,0,0 1012 DATA 4,4,4,4,4,4,4,4,4,4,5, 
,A768" 1006 DATA 0,0,0,0,0,0,1,0,0,0,0, 575,444,222,2,2),1,4,1,2,2; 
15 HOME : GR : PORE - 16302,0 0,2,2,2,2,0;0;3,070;050,3; 2:1,1,3,6,6,6,6,6,6,6,6,6, 
: CALL - 1998 0,0,0,0>0,0,5,5%5%5,0%0:0, 6,6,6 
25 POKE 1004, 62 0, 0,0 1013 DATA 4,4,4,4,4,4,4,4,4,4,4, 
30 POKE 1002,15: GOSUB 100 1007 DATA 0,0,0,0,0,0,0,0,0,0,0, 555h4,4,4;,3,2/2#1;1912%2, 
35 PORE 1002,14: GOSUB 100 0, 0,0: 0:0,0,0;0,0, 0,0, 0,0, 5,5,1,3,3,5,2,6,6,6,6,6,6, 
40 POKÈ 1002,15: GOSUB 300 0,0,0,0,0,0,0,0,0,0,0,0,0, 6, 6,6 
45 POKE 1002,14: GOSUB 300 0,0,0 1014 DATA 4,4,4,4,4,4,4,4,4,4,4, 
50 C(0) = 0:C{1) = 15:C(2) = 12 Sons 1,123 ,3, 3#5 687,275, 
:C(3) = 9:C/4) = 0:C(5) = 5: 5,555,3,3%5,2,2,33,3,60,6, 
C(6) = 0 : 6, 6,6 
55 POKE 1002,15: GOSUB 500 La mise en page de ce 1015 DATA 4,4,4,4,4,4,4,2,2,4,4, 
60 C{0) = 0:C(1) = 15:C(2) = 15 programme 451,2 ,2:2#935;5290 3:30, 
:C{3) = 15:C(4) = 2:C{5) = 1 1:5%5,2,355,5,2,3,9,6, 6,6, 
5:C(6) = 8 6,6,6 
65 POKE 1002,15: GOSUB 500 Bernard France nous pardonnera 1026 DATA 4, 44,433, 3,282,2,9, 
90 TEXT : HOME : END certainement d'avoir modifié 4,5,5,2,2,2,1,1,5,5,3,3,1, 
“e sons : ne _ légérement les DAT A de son source 2 + Des 3, 6,6,6, 
140 COLOR-= I assembleur. Le programme de 1017 DATA 4,4,4,4/4,9,3,5,5,5,1, 
160 HLIN I,39 - IATI Marianne Sutz du précédent 11 611,21 1:172,3,50 0, 
180 HLIN [,39 - I AT 39 - I numéro nous a aidé à récupérer les 1,3,1:2,2,0dl,2, 25676 6% 
200 VLIN I,39 - I AT I ‘motifs du Macintosh. Pour obtenir 6,6,6 
220 VLIN 1,39 - I AT 39 - I les reproductions ci-contre, nous 1018 DATA 4,4,4,4,3,3,3,5,5,5,1, 
. DE . avons utilisé non l'imageWriter mais Mie ed É 
ROUE la LaserWriter en suivant les étapes A 
300 CALL - 1998 suivante s : 1019 DATA 4,4,4,4,4,4,4,5,5,5,1, 
320 FOR J = 0 TO 47 + Récupération des DATA sur le 2,255r5,1,1,5%5,2,2,2, 5% 95 
340 FOR I = O0 TO 39 Macintosh, 5,3,3,3,5,5,5,1,2,2,6,6,6, 
360 COIOR= I + J us | 6,6,6 
380 PLOT I,J * Transmission par la carte série Sur nn, Lira 4,4,4,4) 44, 4454555, 
400 NEXT I l'Apple Y, ; | 22,5,5.5,d,3,5%5,d,d 11; 
420 NEXT J *__ Insertion dans l'assembleur puis 5,4 3182, 1,1, 1:6,6.6, 6. 
440 CALL 768 essemblage, 6,6,6 
460 RETURN + _ ‘Impression non sur limageWriter 1021 DATA 4,4,4,4,4,4,4,4,4,4,4, 
500 REM CARTE DE FRANCE maïs sur l'écran du Macintosh 2,555,5,5%3,3,2,3,3,3,351, 
520 CALL - 1998 ne : ; 1,525,5%2,2,1,146,6:6,6,6, 
Si0 PSE émulant l'imprimante, toujours 6.6 
560 FOR Y - 0 TO 47 par la carte série et avec ;,,2 para 4,4,4,4,4,4,4,4,4,4,3, 
580 FOR X = 0 TO 39 quelques lignes de Basic, 25 IR D 112,2 00 PT, 
600 READ I + Sauvegarde de l'écran sur 5,5,5,5,2,2,1,6,6,6,6,6,6, 
610 IF Y2 < Y1 THEN 580 disquette, 6,6,6 
620 COLOR-= CI) + Récupération avec le programme 1023 DATA 4,4,4,4,4,4,4,4,4,4,3 
640 PLOT x, Ÿ MacPaint AE RE PS D CR CE 
660 NEXT X a a : 5 Sp lr2;2,65 67676: 66: 6 
680 NEXT Y + Impression définitive par “Hbc 
700 CALL 768 l'intermédiaire du programme 1624 DATA 4,4,4,4,4,4,4,4,4,4,4 
720 RETURN MacDraw afin de choisir aisément 5 Bd 3) 15 149 51089, 2,2, 2 
1000 DATA 0,0,0,0,0,0,1,1,1,1,0, le format. 225342, 1,1, 562,266, 6,6 
0:2,25222;0;0,3:0,0,0:0, 3 | NEA ,6:6,6 
0,0,0,1,0,0,5,5,5,5,0,0,0, LE résultat est la réplique fidèle (et 3625 para 4,4,4,4,4,4,4,4,4,4,4 
0,0,0 même un peu plus) de ce que vous :4,.20838,138011, 685,0 1 
1001 DATA 0,0,0,0,0,0,1,0,0,1,0, obtiendrez sur votre imprimante. :1:8,2,1,1,1,2,242, 6, 6x6, 6 
0,2,0,0,2;0:.0:3:3,0%05.344 ,6,6,6 
0,0,1,1,0,0,5,0,0,0, 0, 0,0, 1026 DATA 4,4,4,4,4,4,4,4,4,4,4, 
0,0,0 1008 DATA 4,4,4,4,4,4,4,4,4,4, 4, 4,2%0m2,3,Dd:1,1,2,2 11, 
1002 DATA 0,0,0,0,0,0,1,0,0,1,0, 4,4,4,4,4,4,4,4,1,1,3,6,6, 1,3205,5,5,3,9,3,6,;:6:6, 6 
0,2;0,0,2,0:0: 970, 3,3,023, 6,6,6,6,6,6,6,6,6,6,6,6,6, EG 
0,0, 0,0, 0,0,5,0,0,0,0,0,0, 6,6,6 1027 DATA 4,4,4,4,4,4,4,4,4,4,4, 
0, 0,0 1009 DATA 4,4,4,4,4,4,4,4,4,4,4, 454,4,2,3,5,5,1,2 5229627 
1003 DATA 0,0,0,0,0,0,1,1,1,1,0, 4,14,4,4,4%4,;4;:4%1, 1,126; 2,3,3,5,5,5,5,3,3,6, 6, 6, 6, 
0,2;.08 02,0; 043,0; 070, 033, 6,6,6,6,6,6,6,6,6,6,6,6,6, 6,6,6 
0,0,050,0:0,5,:5,525,0#0,0, 6,6,6 1028 DATA 4,4,4,4,4,4,4,4,4,4,4, 
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Hard-Copy simple et 
double : des précisions 


Sur la disquette 
d'accompagnement de ce munéro, 
vous trouverez des versions 
modifiées des progremmes de 
hard-copy parus dans les Pom's 
18 et 19. En double largeur, la 
dernière ligne n'était pas 
imprimée. D'autre part, la 
nouvelle version du patch du 
ruvnér o 19 respecte mieux la 
géométrie de l'image (mise en 
caractères Elite au lieu de 
proportionnels). 





1029 
1030 


1031 


6,6,6 
DATA 4,4,4,4,4,4 
4,3,3,3,5,5,1,1 
2, 5,5,1, 2,2,5,5, 
6,6,6 


1032 
1033 


1034 DATA 4,4,4,4,4,4,4,4,4,4,4, 


2r2,2r253,3,2,2,2,5,5,5,2, 
2,4,5,1,4,1,3,3,3,4,4,4,4, 
4,4,4 

1035 


1036 

1037 
4 

1038 DATA 4,4,4,4,4,4,4,4,4,4,4, 

1039 


1040 
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1041 


4,4,4,4,4,4,4,5,5,5,4,4,4, 





4,4,4 
de, MA TE 1045 DATA 4,4,4,4,4,4,4,4,4,4,4, 
4,4,4 4,4,4,4,4,4,4,4,4,4,4,4,4, 
1042 DATA 4:4:4:4,dm4, 4-Â+-4.4.4: 4,4,4,4,4,4,4,5,5,5,4,4,4, 
4,4,4,4,4,4,4,4,4,4,4,4,4, FE 
4,4,4,4,4,4,4,4,3,3,4,4,4, 1046 DATA 4,4,4,4,4,4,4,4,4,4,4, 
+ 4,4,4,4,4,4,4,4,4,4,4,4,4, 
1043 DATA 4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,5,5,5,4,4,4, 
4,4,4,4,4,4,4,4,4,4,4,4,4, ha 
4 M0, 4,4, 1, 3:34, 4.4, 1047 DATA 4,4,4,4,4,4,4,4,4,4,4, 
4,4,4 4,4,4,4,4,4,4,4,4,4,4,4,4, 
1044 DATA 4,4,4,4,4,4,4,4,4,4,4, 4,4,4,4,4,4,4,4,4,5,4,4,4, 
4,4,4,4,4,4,4,4,4,4,4,4,4, 7444 
"É 7} 0368- AA 34 48 AA 00 AA 00 AA 
Récapitulation 0370- 00 AA 00 35 48 11 22 44 
HCGR 0378- 88 11 22 44 88 36 48 55 
0380- 55 55 55 55 55 55 55 37 
0300- A9 00 85 36 A9 C1 85 37 0388- 48 27 3F F3 72 4E CF FC 
0308- A2 39 E8 BD 00 03 20 ED 0390- E4 38 48 55 00 55 00 55 
0310- FD EO EE 90 F5 A2 FF E8 0398- 00 55 00 39 48 EE DD BB 
0318- AO FF C8 8A 20 71 F8 09 03A0- 77 EE DD BB 77 3A 48 F7 
0320- 30 20 ED FD CO 27 90 F2 03A8- DF FE FB BF EF FD 7F 3B 
0328- A9 OD 20 ED FD E0 2F 90 03B0- 48 EF DF BF 7F FE FD FB 
0330- E6 A9 BD 85 36 A9 9E 85 03B88- F7 3C 48 55 FF AA FF 55 
0338- 37 60 09 SA OD 1B 2D IB 03C0- FF AA FF 30 48 EE FF DD 
0340- 49 30 48 00 00 00 00 00 03C8- FF EE FF DD FF 3E 48 77 
0348- 00 00 00 31 48 22 00 88 03D0- FF FF FF 77 FF FE FF 3F 
0350- 00 22 00 88 00 32 48 55 03D8- 48 FF FF FF FF FF FF FF 
0358- 00 AA 00 55 00 AA 00 33 03E0- FF 04 1B 4E 1B 27 1B 54 
0360- 48 55 AA 55 AA 55 AA 55 03E8- 31 36 OF 1B 3C iF 35 OD 


Basicium.… 
le Basic 


enrichi 


Cet utilitaire vous permet de 


{mprimer l'écran 


40 ou 80 colonnes 
par “JH". 





Nettoyer mémoire 


très rapidement par. 
“JF”.  . 





Gérer des messages, 
la réponse étant 
contrôlée. 


Gérard Michel 


Apple J{+ //e 


Gérer des masques 40 ou 
80 colonnes. Ces écrans, 
définis lors de la program- 


mation, s'affichent par la 
simple commande ” ] A". 





Saisir toutes les variables 
d'un écran en une seule 
commande "}l"en 
contrôlant type et longueur. 


Mais aussi, ne saisir que 
l'une des variables affectées 
à unécran, les afficher, les 
“effacer, etc... 
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Programme HCGR.S 


(assembleur BigMac) 


h © Lo © NN Oo U 8 GG NH 


LLLSE LES. 


* HCGR * 
RAXAAEAX 


* BERNARD FRANCE 


* BIG MAC 
COUT = 
CSK = 
DOSCSW - 
SCREEN = 
ORG 


SFDED 
$36 
S9EBD 
SF871 
$300 


LÉLLLLLLESS PR#1 XXAAAAAA LR E 


LDA 
STA 
LDA 
STA 


** DEFINITION 


LDX 
CAR INX 
LDA 
JSR 
CPX 
BCC 


** ANALYSE DE 


LDX 
INX 
LDY 
INY 
TXA 

JSR 

ORA 
JSR 
CPY 
BCC 
LDA 
JSR 
CPX 
BCC 


LIG 


COL 


#500 
CSW 
#$5c1 
CSW+1 


NOUVEAUX CARACTERES 


#539 40 COL - 1 

CARACT SUIVT 
$0300,X CHARGE TABLE 
COUT ENVOI À IMPR 
#$EE FIN TABLE ? 
CAR NON 


LA PAGE GRAPHIQUE 


#$SFF 

LIGN SUIVANTE 
$SFF 

COL SUIVANTE 
SCREEN RENV COULEUR 
#530 CONVERTI 
COUT ENVOI À IMPR 
#527 DERNIERE COL 
COL NON 
#$0D RETR CHARIOT 
COUT 
#$52F DERNIERE LIGN 
LIG NON 


XAXAAAARRAX PR#O XARHARAAAA EX 


LDA #<DOSCSW RETOUR AU DOS 
3.3 

STA CSW 

LDA #>DOSCSW 

STA CSW+1 

RTS C'EST FINI! 


XAXAAXAXAXAX TABLE *X**AAAX4X4XX 


DFB 
DFB 
DFB 





$09, $5A, $0D INITIALISE 
$1B, $2D 8 POINTS 
$1B, $49 DEBUT DEF 


60 


61 


62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
79 
76 
77 
78 
79 
80 
81 
82 


83 
84 


DFB $30,$48,500,500,500,500, 

$00, $00, 500, $00 
NOIR 

DFB $31,548, 522, $00, 588,500, 

$22,$500,588,500 
MAGENTA 

DFB 532,548, 555, $00, SAA, $00, 
$55,$00, SAA, $00 

DFB $33,548,$55, SAA, $55, SAA, 
$55, SA, $55,$AA 

DFB $34,548, SAA, 500, SAA, $00, 
$AA, $00, $Aa, $00 

DFB 535,548, S$11, 522, 544, 588, 
$11, 522, 544, 588 

DFB $36,5$48,555,555,$55,$55, 
$55,$55,$55,$55 

DFB $37,$48,$27, $3F, $F3,572, 
S4E, $CF, SFC, $E4 

DFB $38,$48,555,$00,$55,500, 
$55,$00,$55, $00 

DFB $39,$48, SEE, SDD, $BB, $77, 
SEE, $DD, $BB, $77 

DFB $3A, $48,SF7, SDF, $FE, $FB, 
SBF, $SEF, $FD, $7F 

DFB $3B,$48,SEF, SDF, $BF,$7F, 
SFE, SFD, SFB, SF7 

DFB $3C,$48,555,$FF, SAA, $FF, 
$55,SFF, SAA, $FF 

DFB S$3D, $48, SEE, $FF, $SDD, $FF, 
SEE, $FF, SDD, $FF 

DFB $3E,$548,577,SFF, SFF,SFF, 
$77,SFF, SFF,SFF 

DFB $3F,S$48,SFF,SFF, SFF,SFF, 
SFF, SFF, SFE, SFF 


DFB $04 FIN POLICE 
DFB $1B,$4E CARACT PICA 
DFB $1B,$27 POLICE PERSO 
DFB $1B,$54,$31,$36 

DFB $0F SIMPL LARGEU 
DFB $1B,$3C BIDIRECTIONN 
DFB $1F,$35 5 SAUTS LIGN 
DFB $0D NON UTILISE 
END 
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De la formule.;;;rve 


Jean-Louis Chauvin 


n complément de l'ar- 

ticle paru dans le n° 

11 de Pom's, voici 

deux nouveaux pro- 
grammes de tracé de courbes en 
conversationnel. 


Le premier, baptisé FORMULEI1, 
dessine toutes les fonctions du 
type Ÿ = f(X). Il pennet aussi de 
tracer la courbe de la dérivée. 


FORMULE2 trace les courbes 
définies soit par un couple 
d'équations paramétriques X = 
ICT), Ÿ = g(0), -soit par une 
équation polaire R = f(T). Dans 
les deux cas, vous pouvez 
également : 


+ obtenir une famille de courbes 
en introduisant dans la formule 
un paramètre M ; 

+ cadrer la partie du plan (X Ÿ) 
représentée ; 

*_ faire apparaître ou non les axes 
de coordonnées ; 

° tracer la courbe par points 
(pour les fonctions discon- 
tinues). 


Avec les deux programmes, les 
formules apparaissent sur le 
graphique. 

Quand vous lancez FORMULE, 
laissez dans le lecteur une 
disquette non protégée (vous 
verrez plus loin pourquoi). 


Complétez après ‘Y =" la fonnule 
comme en Basic, sans autre 
variable que X (et M dans 
l'option avec ‘paramètre');, vous 
pouvez utiliser les constantes PI 
et E (attention à la syntaxe : tapez 
2 * PI et non 2 PT). X1, X2, Y1 
et Y2 délimitent la partie du plan 
représentée sur l'écran. 


Si vous changez les valeurs 
proposées, prenez soin que X2 
soit supérieur à X1 etque Ÿ2 soit 
supérieur à Y1. Si vous avez 
demandé un paramètre M, vous 
devrez définir sa progression par 
les valeurs extrêmes MI et M2 et 
par le pas qui doit être de même 
signe que (M2-Ml). 
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Avec FORMULE, le processus 
est le même excepté que, dans les 
formules, la variable doit être Tet 
non X. 


En outre, vous aurez à introduire 
les bornes T1 et T2 du domaine 
de variation de T si les valeurs 
par défaut ne vous conviennent 
pas. 

Le paramètre M vous permettra 
de réaliser des effets artistiques. 
Essayez par exemple : 

R=COS 4*T)+M 

avec M1 = -2, M2-2 et PAS=I. 


+ l'arrêt par END (ligne 290) 

déclenche l'exécution de la 
procédure. 
Celle-ci, après avoir modifié le 
programme, le relance à la li- 
gne 400 (RUN 400 ligne 260). 
Ce RUN mettant les variables à 
zéro, les valeurs à conserver 
doivent être inscrites également 
dans des instructions par la 
procédure (lignes 225 à 250). 

+ après redémarrage, la procé- 
dure est effacée (ligne 410) et 
le déroulement se poursuit. 


Exemple de courbe avec paramètre M 
variant de -2 à 2 par pas de 1 





Le programme 


Il est entièrement rédigé en 
Applesoft. Pour insérer une 
formule dans une instruction, il 
procède comme suit : 


* la formule est introduite (ligne 
90 de FORMULE) comme 
variable chaîne F$. 

+ le programme crée et enregistre 
sur la disquette (lignes 200 à 
270) une procédure nommée 
PROCEDURE qui comporte 
entre autres commandes (ligne 
220) la création à la ligne 560 
de l'instruction représentée par 
la formule Y=F$. 


Pendant le tracé de la courbe, les 
valeurs non défmies de la fonc- 
tion (1/0, SQR(-1)...) sont élimi- 
nées par ONERR GOTO 1700, 
corrigé par la routine classique en 
langage machine de la ligne 35. 


Par ailleurs, l'affichage de la 
formule en mode graphique est 
assuré par le sous-programme de 
la ligne 1500. 


Celui-ci utilise une table de 
formes (fichier ALPHA sur la 
disquette) que le programme 
charge (ligne 37) à l'adresse 
16384 ($4000), immédiatement à 
la suite de la page graphique 
haute résoluson n°1. 








Programme FORMULE 1 


REM TRACE DE COURBES DE FONCTIO 
N 

REM PAR J.L.CHAUVIN 1984 

DS = CHRS (4) :FIRST 1: SCALE 
= l: ROT= 0:O0$ = CHR$S (34):5S 
16384 

POKE 768,104: POKE 769,168: POK 
E 770,104: POKE 771,166: POKE 7 
72,223; POKE 773,154% POKE 774, 
72: POKE 775,152: «EOKE 7761, 72: 


POKE 777, 96 


32,0: POKE 233, 64 


POKE 34,0: TEXT : HOME 


: PRINT 


PRINT D$"BLOADALPHA,A"S: POKE 2 


TAB( 7) "COURBES DE FONCTIONS Y 


=F (X) 


RRINT ©: PRINT 

LA FORMULE 

PRINT : INPUT 

AMETRE ‘'M' 

" THEN PAR = 1 

IF FIRST THEN PRINT : PRINT 
PRINT "VOUS POUVEZ UTILISER 
r ET tE'" 

90 PRINT : PRINT 
T CU Y=";FS 

100 PRINT : PRINT 

S DE X(SINON:X1=-7,X2=7):": 


"FORMULE :";: 


“INTRODUCTION DE 


PRINT TAB( 7) "===> 


"FORMULE AVEC PAR 
(O0) ?";:AS$: IF AS = "O 


"R 
ESPECTEZ LA SYNTAXE DU BASIC": 


CET 


INPU 


"VALEURS EXTREME 


IN 
PUT "X1=";X1$: IF X1$ = “" THE 


N X1$ = "-7": HTAB 4: VTAB PE 
EK (37): PRINT X1S$ 
105: INPUT "X2=":X DS: IE X2S = "MT 
HEN X2$ = "7": HTAB 4: VTAB P 
EEK (37): PRINT X2$S 
110 PRINT : PRINT "VALEURS EXTREME 
S DE Y(SINON:Y1=-4,Y2=4):": IN 
PUT “YI=":YI1S: IE YAS = "" THE 
Table de formes FE Re 
ALPHA 4050- 29 03 33 
Après œotr saisi æ fichier sous moniteur, pe A : 
anses 4068- B7 03 C5 
BSAVE ALPHA,AS$4000,L$5C0 4070- E8 03 F5 
: 4078- 1E 04 2C 
4000- 80 00 8A 01 A6 01 A8 01 4080- 4C 04 53 
4008- AF 01 B8 01 CS 01 D4 01 4088- 6E 04 79 
4010- DF 01 EC 01 EF 01 F8 O1 4090- 95 04 9F 
4018- 00 02 OF 02 18 02 IC 02 4098- C1 04 CB 
4020- 21 02 24 02 2E 02 3E 02 40A0- EA 04 F3 
4028- 47 02 55 02 61 02 6C 02 40A8- 14 05 1C 
4030- 79 02 85 02 92 02 9F 02 40B0- 3B 05 45 
4038- AB 02 AE 02 B2 02 BF 02 40B8- 6E 05 79 





175 


120 


N YI$ = "-4": HTAB 4: VTAB PE 
EK (37): PRINT Yl$ 

HNIPUTANYP=" VDS: DE Y2S = "" TT 
HEN Y2$ = "4": HTAB 4: VTAB P 
EEK (37): PRINT Y2$ 

M$ = "O":MD$S = "O":PM$S = "O": 
IF PAR THEN PRINT : PRINT "VA 
LEURS DE M:": INPUT "DE M=";M$ 
: INPUT "A M=";MD$: INPUT "PAS 
="; PMS 

HGR : HOME 


REM CREATION PROCEDURE POUR IN 
TRODUIRE LES FONCTIONS DANS LE 
PROGRAMME * 

PRINT DS$; "OPENPROCEDURE": PRIN 
T D$; "WRITEPROCEDURE 


PRINT "560Y="FS: PRINT "825Y=" 
FS: PRINT "835Y="FS 

PRINT "415FS$="OS;FS;QS$S 

PRINT "420X1="X1S":X2="X2S 
PRINT "430Y1="YMSUIY2=NY?S 
PRINT "44 OM="MS ee :MD="MDS “# -:PM=" - 
PMS 

PRINT "“RUN4OO 

PRINT DS$"CLOSEPROCEDURE 

PRINT D$S"EXECPROCEDURE 

END : REM ARRET POUR DECLENCHE 
R EXEC 

REM PREPARATION DONNEES ** 

PI = 4 * ATN (l):E = EXP (1) 
: ONERR GOTO 1700 

D$ = CHRS (4):OS$ = CHR$S (34) 
: PRINT D$"DELETEPROCEDURE 

F$ = "EXP(X/2)" 

XI1= - 7:X2 = 7 

Y1 = - 4:Y2 = 4 

M = O:MD = O:PM = 0 

POKE 34,20: HOME : HCOLOR= 3 
IF X1 > = X2 THEN PRINT "ERR 
EUR: X1>=X2": GET AS: GOTO 40 
IF Y1 > = Y2 THEN PRINT "ERR 
EUR: Y1>=Y2": GET AS: GOTO 40 
IF MD = M GOTO 480 
02 EA 02 40C0- A2 05 A8 05 B8 05 00 00 
03 1D 03 40C8- 00 00 00 00 00 00 00 00 
03 4C 03 40D0- 00 00 00 00 00 00 00 00 
03 77 03 40D8- 00 00 00 00 00 00 00 00 
03 AA 03 40E0- 00 00 00 00 00 00 00 00 
03 DB 03 40E8- 00 00 00 00 00 00 00 00 
04 14 04 40F0- 00 00 00 00 00 00 00 00 
04 3D 04 40F8- 00 00 00 00 00 00 00 00 
04 61 04 4100- 00 00 01 00 00 00 00 00 
04 8A 04 4108- 00 00 00 00 00 00 00 00 
04 B9 04 4110- 00 00 00 00 00 00 00 00 
04 E1 04 4118- 00 00 00 00 00 00 00 00 
04 09 05 4120- 00 00 02 03 04 05 06 07 
05 31 05 4128- 08 09 OA 08 OC OD O0E OF 
05 61 05 4130- 10 11 12 13 14 15 16 17 
05 93 05 4138- 18 19 1A 1B 1C 1D LE 1F 
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470 


480 


490 


495 
500 


4140- 
4148- 


4150- 
4158- 
4160- 
4168- 
4170- 
4178- 
4180- 
4188- 
4190- 
4198- 
41A0- 
41A8- 
41B80- 
41B8- 





IF (MD - M) * PM < O OR PM = O0 
THEN PRINT "ERREUR SUR M": G 
ET A$: GOTO 40 

HOME : INPUT "COURBE PAR POINT 
S (Op)? ; A8 IF A$ < >= "O® THE 
N CO = 1 


PRINT : INPUT "TRACE DES AXES 
(0) ?";AS$: IF A$ = "O" THEN AX 
=;.1 
HOME 


REM GRAPHIQUE ** 

TS “Y=" + F$: GOSUB 1500 

RX = (X2 = KA) J 279:RTY = (2 

— Y1) / 159: IF AX = O0 GOTO 54 

0 

REM AXES ET GRADUATION 

X0O — X1 / RX:Y0 159 + Y1 

7 EX: IF X0 < 0 OR #0 > 279 CO 

TO’ 532 

HPLOT X0,0 TO XO,1592YP = 
(Y2) : IF KO > 278 GOTO 532 

YY = (Y1 — YP) / RY + 159: HPL 

OT #0 + 1 YYAiYP YP - l: IF Y 

pr Y1 GOTO 531 

IF YO < O0 OR YO > 159 GOTO 540 

HPLOT 0,Y0 TO 279,Y0:XP INT 


INT 


(X2) 5 IF #0:< 1 .GOTO 540 
XX = (XP —- X1) / RX: HPLOT XX, 
YO — 1:XP = XP - l: IF XP > = 
X1 GOTO 537 
REM COURBE 
XX: 10 


X = X1 + XX * RX 

Y EXP (X / 2) 

YY = (X1 = Y) / RY + 159 

IF YY < O OR YY > 159 THEN IN 
0: GOTO 620 
IF IN * CO THEN 
YY: GOTO 610 
HPLOT XX,YY 


HPLOT TO XX, 


TN ,1 

XX = XX + l: IF XX < 280 GOTO 
550 

207212223124 2526.27 41C0- 1E OD 2D 
28 29 2A 2B 2C 2D 2E 2F 41C8- 3F BF 0E 
30231 32 135; 94,95 36.37 41D0- 35 24 04 
38 39-.3A 3B 3C 3D 3E 3F 41D8- B6 OA 17 
40 62 42 43 44 45 46 47 41E0- 1iC 17 76 
48 49 4A 4B 4C 4D 4E 4F 41E8- DE 6D 07 
50 51 52 53 54 55 56 57 41E0= 08:88 17 
58 59.5A -5B 5C SD SE SF 41F8- 92 OC OC 
60 61 05 07 02 03 80 62 4200- 24 34 1F 
BF 05 24 3C 2F 2D 2D JE 4208- 2D 15 1F 
3F 3F 2E 2D 2D 3E 3F 3F 4210- 36 36 24 
2E 2D 2D 3E 3F 3F 2E 2D 4218- 32 IE 05 
2D 3E 3F 3F 05 00 02 00 4220- 00 92 04 
B6 1C 08 24 24 06 00 18 4228- IE IE lE 
08 24 OD 36 1E 08 04 00 42902510 "3r 
3F 25 64 2D 3F 17 36 36 4238- 2D 1D 08 
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890 
900 
910 


920 
1499 


1500 


IN = 0: IF PM = O0 GOTO 800 
M M + PM: IF (MD -— M + PM) 
PM > O GOTO 540: REM ITERAT 
ION 
HOME : INPUT "AUTRE FORMULE (O 
)2";A$: IF A$ = "O" GOTO 40 
END 
REM DERIVEE ** 
HOME : INPUT "TRACE DE LA DERI 
VEE (O)?"%AS: IE AS < > “O" G 
OTO 640 
XX = O0: HCOLOR= 2 
X1 + XX * RX 
EXP (X / 2) 
Y : XD X:X = X 
= EXP (X / 2) 
D Y — YD:DX = X — XD 
DER = DY / DX 
DD (Y1 - DER) / RY + 159 
IF DD < O0 OR DD > 159 THEN IN 
0: GOTO 910 
IF IN * CO THEN HPLOT TO XX, 
DD: GOTO 900 
HPLOT XX, DD 
IN = 1 
XX = XX + l: 
820 
IN = O0: HCOLOR= 3: GOTO 640 
REM AFFICHAGE HGR D'UNE CHAIN 
E TS ** 
S = 16384:A S + PEEK (S + 
2) + 256 * PEEK (S + 3):NB 
PEEK (S):IC = 1:XB PEEK 
(A —- 6):YB PEEK (A — 5) 
LO = LEN (T$):DX = PEEK (A 
=rO)É IC LÉ: À 
FOR I 1 TO LO 
AS1=+ ASC ( MIDS' (HS$S,T, 14) 
NF PEEK (S + 2 * NB + 2 + 
AS) 
DRAW NF AT XA 
XA = XA + DX: 
N XA 0:YA 


# 


+: 001 


IF XX < 280 GOTO 


+ XB,YA + YB 
IF XA > 270 THE 
YA + 10 





30 





1570 NEXT : RETURN 

1700 REM TRAITEMENT ERREURS 

1705 CALL 768 

1710 ER = PEEK (222):LI = PEEK ( 
218) + PEEK (219) * 256 

1720 IF (ER = 53 OR ER = 133) AND 
LI — 560 THEN IN = 0: GOTO 62 
0 

1730 IF ER = 16 THEN PRINT "ERREU 
R DE SYNTAXE LIGNE ";LI: GET 
A$: GOTO 40 

1740 IF (ER = 53 OR ER = 133) AND 
(LI = 825 OR LI = 835) THEN I 
N = 0: GOTO 910 

1750) PRINT "ERREUR N{"ER" LIGNE "L 


I: PRINT CHR$S (7): END 





Programme FORMULE2 


10 


20 
30 


3 


REM TRACE DE COURBES DE FONCTIO 
N 

REM PAR J.L.CHAUVIN 1984 

D$ = CHRS$S (4):FIRST = 1: SCALE 
= l: ROT= 0:Q$ = CHR$S (34):S = 
16384 

POKE 768,104: POKE 769,168: POK 
E 770,104: POKE 771,166: POKE 7 
72,823: FOKE 713;154: FOKE 774, 


SF, Y<C(E) 
80 PRINT : PRINT "2-COORDONNEES PO 
LAIRES": PRINT TAB( 18)"R=F(T) 
DOUPRINT : INPUT "VOTRE CHOIX: M°CH 


OIXS: IF CHOIXS = 
100 IF CHOIXS = 


"Al GOTO 120 
"2": GOTO 200 


110 PRINT "CHOIX ERRONE": GOTO 90 

119 REM INTRODUCTION X=F(T), Y=G(T 
) #* 

120 HOME : PRINT : PRINT "INTRODUC 
TION DES FORMULES": GOSUB 130: 
GOTO 150 

130 PRINT : INPUT "FORMULE AVEC PA 
RAMETRE 'M' (O0)?7";AS$: IF AS = 
“O" THEN PAR = 1 


140 IF FIRST THEN PRINT : PRINT " 
RESPECTEZ LA SYNTAXE DU BASIC" 


PRINT "VOUS POUVEZ UTILISER 
PDT " ET 'E'" 
145 RETURN 
150 PRINT : PRINT "FORMULES:": INP 


UT "X=";F$: INPUT "Y=";G$ 
160 PRINT : PRINT "VALEURS EXTREME 


S DE X(SINON:X1=-7,X2=7):"2 IN 
BUT "XI=",:X1$S: IF X1$ = "" THE 
N X1$ = "-7"; HTAB 4: VTAB PE: 


EK (37): PRINT X1$ 

170 INEUT "XP="R NDS: (TE X2$ = "n m 
HEN X2$ = "7": HTAB 4: VTAB P 
EEK (37): PRINT X2$ 

180 PRINT : PRINT "VALEURS EXTREME 





72: POKE 775,152 4ÆOKE 776, 72: S DE Y(SINON:Y1=-4,Y2=4):": IN 

POKE 777,96 PU MPI=NS TMS: DE MMS — "" THE 
37 PRINT D$"BLOAD ALPHA,A"S: POKE N Y1$ = "-4": HTAB 4: VTAB PE 

232,0: POKE 233, 64 ER (57) > PRINT Y1S 
40 POKE 34,0: TEXT : HOME : PRINT 190 INPUT "Y2=";Y2$: IF Y2$ = "VTT 

TAB( 11)"COURBES DE FONCTIONS HEN Y2$ = "4": HTAB 4: VTAB P 

50 PRINT TAB( 11) "=== EEK (37): PRINT Y2$ 

<< 195 GOTO 240 
60 PRINT : PRINT "CHOISISSEZ ENTRE 199 REM INTRODUCTION R=F(T) ** 

: 200 HOME : PRINT "INTRODUCTION DE 
70 PRINT : PRINT "1-COORDONNEES PA LA FORMULE": GOSUB 130 

RAMETRIQUES": PRINT TAB( 18)"X 210 PRINT : PRINT "FORMULE:": INPU 
42C0- 27 28 2D B5 3F 00 12 17 9340- 36 26 24 24 FC 1B 36 2E 43C0- 6C 15 15 04 00 3F 20 OC 
42C8- OC OC OC 1F 08 1F 08 1F 4348- 37 36 04 00 24 3C 2D 37 43C8- 2D 15 D6 15 F6 3F 1F 08 
42D0- 08 05 00 B6 1C 08 64 OC 4350- 36 36 3E 2D 07 00 98 72 43D0- 06 00 36 26 24 24 3C 2F 
42D8- 1C 3F 17 04 00 38 OC 70 4358- 2D 1D 08 24 24 34 00 3B 43D8- 2D 3D 00 18 24 34 36 36 
42E0- 0E 17 15 3F BF 0E 2D 25 4360- 36 6E 09 1C 1C 1C 08 1D 43E0- 0E 2D 1D 08 24 24 34 00 
42E8- O4 00 3A 37 26 24 64 OC 4368- 08 OC DF 33 36 00 1B 24 43E8- 1B 24 34 36 76 15 OC 1D 
92F0- 1E 08 OE 15 36 2F 36 04 4370- 34 36 36 2E 2D 3D 00 1F 93F0- 08 24 24 06 00 1F 24 34 
Ge S 3 46 AC 10 LS EG LS ER 6 1 16 LE LE AN AC LS ERER- 26 26 LE 20 TA 35 24 24 
4300- F6 3F 27 24 00 1B 24 OC 4380- 36 36 36 04 00 1F 08 27 4400- 24 06 00 1C 1F 08 34 96 
4308- 2D 15 96 F2 3F 1F 08 24 4388- 34 36 36 6E 09 24 2F 24 4408- 32 64 OD 15 26 1C 08 18 
4310- 00 1B 24 2C.2D 15 36 36 4390- 24 06 00 1B 36 0E 2D 1D 4410- 1D 08 34 00 36 26 24 1C 
4318- 1E 3F 27 24 00 AD 12 3F 4398- 08 24 24 1C 3F 17 36 00 4418- 1C 6C 09 F6 07 00 1E 1E 
4320- 3F 24 2C 27 24 2D 2D 07 43A0- 2D 20 1C 3F 37 36 3D 36 4420- 2E 2D 25 18 08 18 1D 08 
4328- 00 3D 3F 36 26 24 24 2C 43A8- 26 00 72 1D 08 24 Eg 3F 4428- 3C 3F 2F 00 20 FO OD 07 
4330- 2D 3D 00 2A 35 3E 3F 1F 43B0- 17 36 36 OE 6D 05 00 2D 34330- 00 12 16 OC 2C 1C 08 38 
43338- 08 24 24 OC 2D 32 00 2D 43B8- 20 1C 3F 37 36 3D 36 26 4438- 3F 17 76 2D 00 iB 1C 08 
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220 


240 


245 


250 


299 


260 
300 


310 


320 


330 


340 


350 


360 





T "R=";F$ 
PRINT : PRINT "VALEUR EXTREME 
DE R (SINON R=4)": INPUT "R1=" 
;R1$: IF R1$ = ‘"" THEN RIS = " 
4": HTAB 4: VTAB PEEK (37): P 
RINT RI1S 
PRINT : PRINT 
(SINON:DE -PI À PI):": 
DE TimtETIS: IP TIS = 
TJS = "-PI": HTAB 7: 
ER (37): PRINT TIS 
INPUT A T£=":T2S$S: DEF °T2S æ "" 
THEN T2$ = "PI": HTAB 6: VTAB 
PEEK (37): PRINT T2$ 
MS = "O":MDS = "O":PMS = "oO": 
IF PAR THEN PRINT : PRINT "VA 
LEURS DE M:": INPUT "DE M=";MS 
INPUT "A M=";MD$S: INPUT "PAS 
="; PMS 
PRINT :; INPUT "VOULEZ-VOUS REP 
RENDRE CES DONNEES (0)?";AS$: I 
F ÀA$ = "O" GOTO 40 


"VARIATIONS DE T 
INPUT 
er THEN 
VTAB PE 


HGR : HOME : SCALE= 1: ROT= O0: 
HCOLOR= 3 
REM CREATION PROCEDURE POUR I 


NTRODUIRE LES FONCTIONS DANS L 

E PROGRAMME * 

PRINT DS; "OPENPROCEDURE": PRIN 

T DS; "WRITEPROCEDURE 

IF CHOIXS = "l" THEN PRINT "9 

20X="FS":Y="GS: PRINT "460XS=" 

Q$ + F$S + OS": YS="OS + GS + 0$ 
: GOTO 340 

PRINT "920X=COS (T) *("FS$"):Y=SI 

N(T)*("FS$")": PRINT "49ORS="OS 
+ F$ + ©QS$: PRINT "480R1 = "RI1 

$: GOTO 350 

PRINT "440X1="X1S":X2="X2S":Y1 

="Y1S":yY2="Y2S 

PRINT "420T1="TIS":T2="T2S":M= 
"MS" :MD="MDS" : PM="PMS":CHOIX=" 

CHOIXS 


PRINT "RUN400 
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PRINT DS$"CLOSEPROCEDURE 

PRINT D$"EXECPROCEDURE 

END : REM ARRET POUR DECLENCH 

ER EXEC 

REM PREPARATION DONNEES ** 

PI=4%* ATN (1)j:E = EXP (1) 
ONERR GOTO 1700 

D$ = CHR$S (4):Q$ = CHRS (34) 

: PRINT D$"DELETEPROCEDURE 

T1 = - PI:T2 = PI:M = O:MD = 

PI / 2:PM = PI / 12:CHOIX = 1 

POKE 34,20: HOME 


IF CHOIX = 2 GOTO 480 

X1= -— 7:X2 = 7:Y1 = — 4:Yy2 
= 4 

F X1 = X2 OR Y1 = Y2 THEN PR 


INT "ERREUR SUR X1,X2, Y1, Y2": 

GET A$: GOTO 40 

X$ = "2.5*COS(T) *SIN(M)":YS = 
"4*SIN(T)" 

GOTO 500 

R1 = 4 

R$ = "SINX" 

IF R1 < = O0 THEN "ERREUR SUR 

Rl": GET A$: GOTO 40 

IF MD = M GOTO 520 

IF (MD - M) * PM < O OR PM = O 
THEN PRINT "ERREUR SUR M": G 

ET A6: GOTO 40 


HOME INPUT "COURBE PAR POINT 
S (OMR AS: TE A$ < > 0!" THE 
N CO = 1 

PRINT : INPUT "TRACE DES AXES 
(O0) ?";A$: IF A$ = "O" THEN AX 
= 1 

REM GRAPHIQUE ** 

IF CHOIX = 1 THEN TS = "X=" + 


X$S: GOSUB 1500:XA = O:YA = YA 


+ 10:T$S = "yY=" + Y$: GOSUB 150 
O0: GOTO 640 

T$ = "R=" + RS: GOSUB 1500 

X2 = 1.75 * R1:X1 = - X2-y2 = 
R1:Y1 = - R1 





31 


32 


640 


650 
660 
670 
680 
690 
700 
710 
850 
860 
900 
910 
920 
930 


940 


950 


960 
970 
980 








FX = fx? = XI) / 2798RY = (62? 
— Y1) / 159: IF AX = O0 GOTO 85 
0 

REM AXES ET GRADUATION 

X0O = - X1 / RX:Y0 = 159 + Y1 


/ RY: IF X0O < O OR X0 > 279 GO 

TO 690 

HPLOT X0,0 TO X0,159:YP = 
(Y2): IF X0O > 278 GOTO 690 

YY = (Y1 - YP) / RY + 159: HPL 

OT" XO + 1,MY:XE = YP - 15 IF Y 

P > = Y1 GOTO 680 

IF YO < O OR YO > 159 GOTO 850 

HPLOT 0O»xYO TO 279,YO:XP = INT 
(K2) : IF YO < l ICOTO 700 

XX = (XP - X1) / RX: HPLOT XX, 

YO = 1:XP = XP — l: IF XP > = 
X1 GOTO 710 

DT = PI / 120 * 


INT 


SON (Tr ITA) 


HOME 

REM TRACE DE LA COURBE ** 

T = Tl:IN = 0 

XX = 2,5,.* COS (TT) * SIN (M: 
Y = 4 %* SIN (T) 

XX = (X — XI) J'RKEYY = (Y1 — 


X} 7 RYI+ 159 

TE XX € 0 OR XX » 270 OR 1Y < 
O0 OR YY > 159 THEN IN = O0: GOT 
© 980 

ÉF ÆN * CO THEN HELOT TOUXX, 
YY: GOTO 970 

HPLOT XX, YY 

IN= 1 

T=T+DT: IF (T - T1) 
T2) < = 0 GOTO 920 


# (T — 


990 IN 


1000 


1010 


1020 
1499 


1500 


1510 
1520 
1530 
1540 


1550 
1560 


1570 
1700 
1705 
1710 


1725 


1720 


1760 


O0: IF PM = O GOTO 1010 

M = M + PM: IF (MD - M + PM) 

* PM > O0 GOTO 850: REM ITERA 

TION 

HOME INPUT "AUTRE FORMULE ( 

O)?";AS: IF AÀA$ = "O" GOTO 40 

END 

REM AFFICHAGE HGR D'UNE CHAIN 

E TS LES 

S = 16384:A = S + PEEK (S + 

2) + 256 * PEEK (S + 3):NB = 
PEEK (S)}:IC = 1:XB = PEEK 

(A —- 6):YB = PEEK (A -— 5). 

LO = LEN (T$):DX = PEEK (A 


Il 


ASC ( MPDS (T$,1, 1) 
PEEK (S + 2 * NB + 2 + 


AT XA + XB, YA + YB 
+ DXS TF° XA. > 270 \THE 


NF 
XA 
= YA + 10 


O:YA = 
NEXT : RETURN 
REM TRAITEMENT ERREURS 

CALL 768 

ER = PEEK (222):LI = PEEK ( 
218) + PEEK (219) * 256 

IF ER = 16 THEN PRINT "ERREU 
R DE SYNTAXE": GET AS$: GOTO 4 
0 

IF (ER = 53 OR ER = 
LI = 920 THEN IN = 
0 

PRINT "ERREUR N{"ER'" LIGNE "L 
I: PRINT CHRS (7): END 


133) AND 
Oiss GOTO 98 


Vous avez un Apple le avec Chat Mauve ou un lc ? 


Vous disposez de Pascal 122 


. Profitez de l'interpréteur COGO 


: IS'agit d'un she ue double-fäuté 
: =rn écriten Pascäl. 


into graphiques. Ce. 


dés objets 

- points, Fe. e à l' ep oi fs fonc Aogs- primitives 

de atupulation très antes : cercle, tange nte, 

:nterSections, es; etc. H est ainsi possible 

‘de tracer dés grilles, ‘des cercles, des segments de 

“ droik; des tangentescof unes à deux cercles, dé 
Calculer des distances, des angies… 


: L'éditeur permet. une. sale rapide du su # 


Une instruction COGO 


Q peut-être exécutée 
la saisie pour Meier la 


.ISe au Le où 


programme, 
géométrie Plane, sraiée des insttuc 
Stockage sur fichier afin de 


:d un calcul. 


Par:Nicoïas Montsarrat 


destiné à Jr É roblèmes de 
ns de 


permettre la reprise 


NB : Sur IApple lle, Taichage se fait en simple 
hauë résolution. 
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‘Startup’ Basic sous ProDOS 


Pascal Cantot 


oici un programme de 

STARTUP, presque 

entièrement en Basic 

Applesoft. Il occupe 17 
blocs, mais le ProDOS le charge 
en quelques secondes. PoiNi 1 
exécution plus rapide, il est 
possible de retirer les REMSs (à 
l'aide d'un compacteur par 
exemple...). 


STARTUP utilise les 80 
colonnes. Vous ne devrez donc 
l'utiliser qu'avec un //c ou un //e 
muni d'une carte 80 colonnes au 
standard d'Apple. 


Une fois chargé, ce programme 
affiche le préfixe courant, la date, 
et éventuellement un titre 
correspondant à sa disquette de 
résidence (ce titre est fixé en data 
à la ligne 1205). Il va maintenant 
lire le répertoire principal du 
volume, puis affiche les premiers 
fichiers. 


Le fichier courant apparaît en 
vidéo inversée. Pour changer ce 
pointeur vidéo, ou pour effectuer 
une opération sur le fichier 
courant, une trentaine de 
commandes sont disponibles : 


Déplacement 


« Les flèches = et { dé- 
placent d'un fichier, 


CTRL-W et CTRL-X re- 
monte ou redescend de 8 
fichiers. 


° CTRL-A et CTRL-Z ramène 
au début ou à la fin du 
catalogue actuel. 


°< CTRL-F place le pointeur en 
vidéo inverse sur le fichier 
dont le nom a été saisi (voir 
plus loin). 


Sous-catalogue 
° CTRL-I ouvre le fichier de 
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type DIR couramment pointé, 
lit ce sous-catalogue et en 
affiche les fichiers. 


+ DEL referme un sous- 
catalogue et réaffiche les 
fichiers du catalogue de niveau 
supérieur. 


Utilitaires 


+ ESC ou CTRL-C pennettent 
de sortir de STARTUP après 
confinnation. 

+ ? affiche un écran d'aide 
récapitulant l'ensemble des 
commandes. 


+ CTRL-D permet de saisir la 
date sous la forme 
JJ-MMM-AA. Le mois doit 
être tapé en lettres majuscules 
(et en français). Cette date sera 
inscrite sur les pages globales 
de ProDOS et pourra donc être 
utilisée pendant le restant de la 
session. 


+ L'heure est réglée par les 
touches : {} pour les heures, 
[] pour les minutes, (pour un 
clavier en mode US). 


Opérations 
générales 


* /permet d'introduire un 
nouveau préfixe au clavier. 

+ 1 ou 2 change le numéro de 
drive (le préfixe ‘st 
automatiquement reconnu). 
C'est également un moyen 
pratique de revenir directement 
au catalogue principal d'un 
volume. 

+ CTRL-P imprime le répertoire 
(ou sous-répertoire) courant. 
L'interface doit être en slot 1. 
Aucun code de contrôle 
particulier n'est envoyé mais la 
ligne 620 du programme est à 
votre disposition... 


Opérations sur les 
fichiers 


+ RETURN charge et exécute le 
fichier SYS, BAS, TXT ou 
BIN pointé. 

° CTRL-L le charge seulement. 


* * verrouille ou déverrouille le 
fichier. 


+ CTRL-V le vérifie 


° CTRL-E l'efface (après 
confirmation). On peut effacer 
un fichier de type DIR mais le 
nombre de blocs disponibles 


ne sera plus correctement 
affiché. 


+ CTRL-R renomme le fichier. 


En cas d'impossibilité d'exécuter 

la commande, quatre événements 

peuvent se produire : 

- La commande est ignorée (cas 
d'un ’L sur un fichier VAR ou 


TXT) 
- Îl y a un message d'erreur et le 
programme continue 


normalement (cas d'une saisie 
de date incorrecte). 

- Il y a un message d'erreur 
ProDOS et le programme 
redémarre à froid, par relecture 
du répertoire (cas d'un 1/0 
ERROR ou d'un WRITE 
PROTECTED). 

- Il y a une erreur Applesoft : 
une improbable (?) erreur de 
ma part... 


Signalons que ce programme 
ignore le verrouillage des 
fichiers : D efface un fichier 
verrouillé et R laisse le 
verrouillage en place. Enfin, le 
programme utilise la commande 
FRE de ProDOS : vérifiez que 
votre version de ProDOS la 


supporte. ä 
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Programme STARTUP 


1 REM À tt 2 2 2 7 6 me € € 2 2 1 xt x 
2 REM * STARTUP ProDOS * 
3 REM *--=-----——————_——— * 
4 REM * P.Cantot, POM'S * 
5 REM LÉ tt ot 2 te 2 2 2 ét tt 
10 DIM AS$(100,5}),ERS$S(19),CMS(20),NF(5),PX 
(5}, COMS (36) 
15 D$ = CHR$ (4): PRINT DS$S"PR#3": PRINT D 
$"PREFIX": INPUT PRS:AS$(0,0) = PRS$S 
20 FOR I = 768 TO 828: READ J: POKE I,gJ: 
NEXT :PLAY = 768:ERR = 796:BIP = 807 
25 VTAB 23: FOR I = i TO 10: PRINT "‘ 
“;: NEXT : POKE 34,2: POKE 35,22 
30 GOSUB 1075: FOR I = O TO 19: READ ERS( 
I): NEXT 
35 DT = 49040:MO$ = "??2?JANFEVMARAVRMAIQJUN 
JULAOUSEPOCTNOVDEC": GOSUB 920 
40 CR$ = CHRS (15) + "Return" + CHR$S (14 
J:SP$ = " 6 
45 ONERR GOTO 840 
50 POKE 34,0: VTAB 1: POKE 1403,0: PRINT 
CHRS$S (15); CHRS$ (26});:PR$; CHR$S (14): 
PRINT : GOSUB 745 
55 VTAB 12: PRINT : PRINT .CHR$ (15J)AS(Y, 
X) CHRS$S (14) 
60 GOSUB 950 
65 VTAB 24: PORE 1403,0: PRINT CHRS$ (26) 
“Entrez commande ou <?> pour aide... " 
70 GOSUB 260: PRINT DS"FRE" 
75 IF KEY = 8 OR KEY = 11 THEN GOSUB 330 
: GOTO 65 
80 IF KEY = 21 OR KEY = 10 THEN GOSUB 31 
0: GOTO 65 
85 IF KEY = 127 AND X THEN X=X - 1:Y = 
P(X) : GOSUB 795: GOTO 65 
90 IF NOT NF(X) THEN 155 
95 IF KEY = 9 AND MIDS (AS(Y,X),18,3) = 
"DIR" AND X < 5 THEN 350 
100 IF KEY = 42 THEN 380 
105 IF KEY = 22 THEN PRINT D$S"VERIFY" MI 
DS (AS(Y,X),2,15): CALL BIP: GOTO 65 
110 IF KEY = 13 THEN 710 
115 IF KEY = 12 THEN 685 
120 IF KEY = 18 THEN 405 
125 IF KEY = 5 THEN 455 
130 IF KEY = 1 THEN Y = 1: GOSUB 805: GOT 
© 55 
135 IF KEY — 26 THEN Y = NF(X): GOSUB 805 
: GOTO 55 
140 IF KEY = 23 AND Y > 8 THEN Y = Y - 8: 
GOSUB 805: GOTO 55 
145 IF KEY = 24 AND Y < NF(X) - 7 THEN Y 
= Y + 8: GOSUB 805: GOTO 55 
150 IF KEY = 6 THEN 510 
155 IF KEY = 47 THEN 560 
160 IF KEY = 91 THEN MN = MV - 1: GOTO 10 
20 
165 IF KEY = 93 THEN MN = MN + 1: GOTO 10 
20 
170 IF KEY = 123 THEN HH = HH - 1: GOTO 1 
020 
175 IF KEY = 125 THEN HH = HH + 1: GOTOC 1 
020 
180 IF KEY = 4 THEN 970 
185 IF KEY = 63 THEN 1105 
190 IF KEY = 49 THEN 590 
195 IF KEY = 50 THEN 595 
200 IF KEY = 27 THEN CALL BIP: CALL BIP: 
GOTO 89 
205 IF KEY = 16 THEN 605 
210 CALL PLAY,64,12: GOTO 65 





215 
220 
225 


230 
235 


240 


245 
250 
255 
260 
265 


270 
275 


280 
285 


290 
295 
300 
305 
310 


TS 


320 


325 
330 


335 


340 


345 
350 


355 


360 
365 
370 
37.5 
380 


385 
390 


395 


400 
405 


410 
415 
420 
425 


430 
435 


440 


445 
450 


END 
REM -=* AFFICHE BLOCKS LIBRES *=- 


VTAB 1: POKE 1403,49: PRINT CHR$ (15 
) "BLOCKS LIBRES: "BF" SUR "BO + BF; C 
HRS$ (14) 

RETURN 

VTAB 24: PRINT “ ou "CR$" “ CHR$ (29) 
POKE 34,23: POKE 35,25: INPUT A$: POK 
E 34,4: POKE 35,22 

IF A$ = ‘""" THEN 65 

RETURN 


REM -=* CURSEUR *=- 

W = PEEK (1403) :KEY = 0 
POKE 1403,W: PRINT "_";: 
F KEY THEN 280 

POKE 1403,W: PRINT “ “;: GOSUB 285: I 
F NOT KEY THEN 265 

IF PEEK ( - 16384) > 127 THEN 380 
POKE 1403,W: PRINT " "; : RETURN 


GOSUB 285: I 


FOR I = 1 TO 40: IF PEEK ( - 16384) 
> 127 THEN KEY = PEEK ( - 16384) - 1 
28: POKE - 16368,0:I = 40 


NEXT : RETURN 

IF PEEK (1063) < > 42 THEN POKE 10 
63,42: RETURN 

POKE 1063,32: RETURN 

REM -=* DEPLACE CURSEUR *=- 

IF Y > = NF(X) THEN CALL PLAY,64,12 
: RETURN 

VTAB 12: PRINT : NORMAL : PRINT A$(Y, 
X) ; CHR$S (23): IF Y < NF(X) - 9 THEN 

VTAB 22: PRINT AS$(Y + 10,X);:: POKE 1 
403,0 


VTAB 13: INVERSE :Y = Y + 1: PRINT A$ 
(Y,X); CHRS$S (14) 

RETURN 

IF Y = 1 THEN CALL PLAY,64,12: RETUR 
N 


VTAB 12: PRINT : NORMAL : PRINT AS$(Y, 
X); CHRS$ (22): IF Y > 9 THEN VTAB 5: 
PRINT A$(Y - 9,X) 

VTAB 13: INVERSE :Y = Y - 1: PRINT A$ 
(Y,X); CHR$ (14) 

RETURN 

> PE À 

J = 15: FOR I = 1 TO 15: IF ASC ( MID 
$ (A$,1)) = 32 THEN J = I - 1:I = 15 
NEXT :A$(0,X) = LEFTS (A$,J) + "/" 
GOSUB 745 

GOTO 65 

REM -=* LOCK/UNLOCK *=- 
A$ = "LOCK":I = 42: IF ASC (A$S(Y,X)) 
= 42 THEN A$ = “UNLOCK":I = 32 


Yex = 


PRINT D$,:AS$; MIDS (AS$S(Y,X),2,15) 
AS(Y,X) = CHR$S (I) + MID$ (AS$S(Y,X),2 
} 

GOTO 55 

REM -=* RENAME *=- 

VTAB 24:W$ = MIDS$S (A$(Y,X),2,15): PO 
KE 1403,0 

PRINT "Nouveau nom"; 

GOSUB 235 

I = 0: IF ASC (AS(Y,X)) = 42 THEN I = 
1 

PRINT DS$"UNLOCK"WS:AS(Y,X) = " "+ M 


ID$ (A$(Y,X),2) 

PRINT D$“RENAME"WS", "A$ 

A$(XY,X) = " “ + LEFT$ (A$ + SP$,15) + 
MID$ (A$(Y,X),17) 

IF I THEN PRINT D$"LOCK"AS$:AS$ (Y,X}) 
"X# +  MID$S (AS(Y,X),2) 

GOTO 55 

REM -=* DELETE *=- 
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455 


460 


465 


470 
475 


480 


485 





VTAB 24: POKE 1403,0: PRINT CHR$ (29 
)J'"Attention: le fichier sera DEFINITI 
VEMENT efface! Continue (O/N) ? "; 
CALL BIP: CALL BIP 

GOSUB 260: IF KEY < > 79 AND KEY < 
> 111 THEN 55 

J = VAL ( MID$ (AS$(Y,X),21,9)) 

A$ = MIDS$S (A$(Y,X),2,15): PRINT DS"UN 
LOCK"AS$: PRINT D$"DELETE"AS 

FOR I = Y TO NF(X):AS$(I,X) = AS(I + 1 
,X) : NEXT 


NF(X) = NF(X) - 1: IF Y > NF(X) THEN Y 
= NF(X) 

BO = BO - J:BF = BF + J: GOSUB 225 
GOSUB 805 


PRINT D$"FRE": GOTO 55 

REM -=* RECHERCHE FICHIER *=- 

VTAB 24: POKE 1403,0: PRINT "Nom du f 
ichier"; 

GOSUB 235: PRINT D$S"FRE" 


I = 1:AS$ = LEFTS$S (A$ + SP$,15) 

IF A$ = MID$ (A$(I,X),2,15) THEN 540 
I =1I+1: IF I < = NF(X) THEN 525 
CALL BIP: CALL BIP: GOTO 55 

Y = I: CALL PLAY768, 32, 32 

GOSUB 805 

GOTO 55 


REM -=* CHANGER PREFIXE *-- 

VTAB 24: POKE 1403,0: PRINT "“Prefixe" 
GOSUB 235: VTAB 5 

PRINT D$"PREFIX"AS 

VTAB 5: PRINT DS$"FRE" 

PRINT D$"PREFIX": INPUT PR$:X = 0 
AS$(0,0) = PRS$: GOTO 50 

PRINT D$"PREFIX, D1": GOTO 575 

PRINT D$"PREFIX, D2": GOTO 575 

REM --*+ IMPRIME LE REPERTOIRE *-- 
VTAB 24: POKE 1403,0: PRINT CHR$ (26 
)"Verifiez l'imprimante et appuyez su 
r "CRS" me L 

GOSUB 260: IF KEY < > 13 THEN CALL 
PLAY64,12: GOTO 610 
° PRINT D$"PR#1" 

REM éventuellement codes ctrl de votr 


e impr.ici 

PRINT DTS$" "TIS: PRINT 

PRINT "PREFIX: "PRS$: PRINT : PRINT T$ 

: PRINT 

PRINT : FOR I = 1 TO NF(X): PRINT A$( 

I,X): NEXT 

PRINT : PRINT "BLOCKS LIBRES: "BF" 
BLOCKS OCCUPES: "BO" TOTAL: " 


BO +BF 

PRINT D$S"PR#3" 

POKE 34,0: VTAB 1: PRINT CHR$S (15) C 
HR$ (26);A$(0,0); CHR$S (14) 

PRINT PRS$: GOSUB 920 

INVERSE : PRINT T$" ";: NORMAL 

VTAB 23: FOR I = 1 TO 20: PRINT " 

":: NEXT : POKE 35,22 

GOSUB 805 

GOTO 55 

REM -=* LOAD/EXECUTE FICHIER *=- 
A$ = MIDS (AS(Y,X),2,15):W$S = MIDS ( 
A$(Y,X),18,3) 

IF W$S = "BAS" THEN PRINT D$S"PR#3": P 
RINT D$S"LOAD"AS 

IF W$ < > "BIN" THEN 210 

PRINT DS$S"PR#3": PRINT DS"BLOAD"AS$S 

END 
A$ = MID$ (A$S(Y,X),2,15) 

CALL BIP 

VTAB 24: POKE 1403,0: PRINT CHRS (26 
)"Appuyez sur " CHR$S (15)" C " CHRS ( 
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810 
815 
820 


825 


830 
835 
840 


845 
850 
855 
860 


865 
870 


875 
880 
885 
890 
895 
900 


905 
910 
915 
920 
925 
930 
935 


940 


14)" pour executer "A$": "; 


GOSUB 260: IF KEY < > 67 THEN 210 
PRINT D$"PR#3" 

PRINT D$"-"AS$ 

END 

REM -=* LIT UN DIRECTORY *=- 
Y = O:NF(X) = 999:PR$ = "": FOR I = 0 
TO X:PR$ = PR$ + A$(0,1I): NEXT 

PRINT D$"OPEN"PR$",TDIR": PRINT D$"RE 
AD"PRS$ 

INPUT A$,TS$,AS$ 

INPUT A$: IF A$ = “* THEN INPUT "";A 
$: GOTO 780 
A$(Y + 1,X) = A$:Y = Y +1: IFY /2= 

INT (Y / 2) THEN GOSUB 295 
GOTO 765 

PRINT D$"CLOSE" 
BF = VAL ( MID$ (A$,13)}:BO = 
MID$ (A$,35)): GOSUB 225: PRINT 
VTAB 2: PRINT :NF(X) = Y: POKE 1063,3 
2: PRINT CHR$ (15);T$" " CHR (14): 
PORE 34,4: PRINT :Y = 1 
A$ = "": FOR I = O TO X:A$ = A$ + A$(0 
+1): NEXT : PRINT D$"PREFIX"A$ 

REM --=* AFFICHE UN REPERTOIRE *=- 
POKE 34,0: VTAB 2: POKE 1403,0: POKE 
33,49: PRINT CHR$ (29);: POKE 33,80: 
FOR I = O0 TO X: PRINT A$(0,1);: NEXT 

: GOSUB 920: PRINT : PRINT : POKE 34 
:4 

HOME :21 = 
1 
22 = 
(X) 
FOR I = 22 TO 21 STEP - 1: VTAB 13 + 
(I - Y): POKE 1403,0: PRINT A$(I,X); 
: NEXT : PRINT 

INVERSE : VTAB 13: PRINT AS$(Y,X): NOR 
MAL 


VAL ( 


Y - 8: IF 21 < 1 THEN 21 = 


Y + 9: IF Z2 > NF(X) THEN 32 = NF 


RETURN 

REM -=* TRAITEMENT D'ERREUR *=- 
CALL ERR:W = PEEK (222): CALL BIP: C 
ALL BIP 


PRINT CHR$ (4)"CLOSE" 

IF W = 255 THEN 895 

VTAB 24: POKE 1403,0: PRINT CARS (26 
Je "ERREUR Le 

IF W AND W < 22 THEN PRINT 
"ER$S(W - 2);: GOTO 870 


“ProDOS: 


PRINT "APPLESOFT numero "W; 

PRINT ", ligne " PEEK (218) + PEEK ( 
219) * 256; 

PRINT ". Appuyez sur "CR$"... "; 
GOSUB 260: IF KEY < > 13 THEN 880 
RUN 


PRINT D$S"FRE" ; 
VTAB 24: POKE 1403,0: PRINT CHR$S (26 
) "Quitter (O/N) ? ", 

GOSUB 260: IF KEY < > 79 AND KEY < 
> 111 THEN 55 

PRINT D$"PR#3": POKE 783,80: CALL PLA 
Y,0,0: POKE 783,81: PRINT D$S"PREFIX"A 
$(0,0) 

END 

REM -=* GESTION DATE *=- 
REM *#* Lecture et affichage 
W = 0:21 = PEEK (DT + 1) :22 = 
DT) 

IF INT (21 / 2) * 2 < > Z1 TAEN 21 
æ 21 - 1:22 = 22 + 128:W = 4 
A = INT (Z1 / 2):MM= INT (22 / 32) 
+ W:JJ = 22 - INT (22 / 32) * 32 

IF JJ = 0 OR JJ > 31 OR AA > 99 OR MM 
= 0 OR MM > 12 THEN DT$ = "Sans date 
“7 GOTO 950 


PEEK ( 











945 DT$ = RIGHTS (“O" + STR$ (9d),2) + “ 

-" +  MIDS (MOS,MM * 3 + 1,3) + "-" + 
RIGHTS ("O" + STRS (AA),2) 

950 HH = PEEK (DT + 3):MN = PEEK (DT + 2 
) 

955 TIS = RIGHTS ("O" + STR$S (HH),2) + " 
:" + RIGHTS ("O" + STR$ (MN),2) 

960 VTAB 2: POKE 1403,49: PRINT CHR$S (15 


Je Date: "DITS" Time: "TI$S; CHR$S (29 
) CHRS$S (14) 
965 RETURN 


970 REM *** Entree de la date *** 

975 VTAB 24: POKE 1403,0: PRINT "Entrez d 
ate (JJ-MMM-AA) ";: GOSUB 235 

980 W = VAL ( LEFTS$S (A$,2)): IF W < 1 OR 
W > 31 THEN GOTO 1055 

985 JT W:W$ = MID$ (A$,4,3):W = 1: FOR 
Æ 1 TO 12: IF W$ = MID$ (MO$,I * 3 
+ 1,3) THEN MM = I:W= 0 

990 NEXT : IF W THEN 1055 


995 AA = VAL ( MID$ (A$,8,2)) 

1000 22 = MM * 32:21 = AA * 2: IF 22 > 255 
THEN 22 = 22 - 256:21 = 21 + 1 

1005 22 = 22 + JJ 


1010 POKE DT,Z22: POKE DT + 1,21 

1015 GOSUB 920: GOTO 65 

1020 REM *** Regler here xx 

1025 IF MN > 59 THEN HH = HH + l1:MN = 

1030 IF MN < O THEN MN = 59:HH = HH - 

1035 IF HH > 23 THEN HH = O0 

1040 IF HH < O THEN HH = 23 

1045 POKE DT + 3,HH: POKE DT + 2,MN 

1050 GOSUB 955: GOTO 65 

1055 VTAB 24: POKE 1403,0: PRINT CHR$ (2 
6) "ERREUR: date incorrecte! "; 

1060 CALE BIP: CALL BIP: GOSUB 260 

1065 GOTO 65 

REM -=* GENERIQUE *=- 

1075 VTAB 6 

1080 READ A$: IF A$ — “à” THEN 1095 

1085 PORE 36,40 - LEN (A$) / 2: PRINT A$ 
: CALL PLAY,8,16: PRINT : PRINT 

1090 FOR I = 1 TO 200: NEXT : GOTO 1080 

1095 RETURN 


0 
pe 


1100 REM -=* AFFICHE CONMANDES *=- 
1105 IF COM THEN 1130 

1110: I = 0 

1115 READ A$,W$: IF A$ = "à" THEN 1125 
1120 COM$(I) = A$ + DETRS (ACER M8 = 


LEN (A$)) + W$:I = I + 1: GOTO 1115 

1125 COM=TI 

1130 POKE 34,4: POKE 35,22: HOME 

1135 POKE 1403,26: PRINT "-=* LISTE DES C 
OMMANDES #*=-"; PRINT 


1140 FOR I = O TO COM STEP 2 


CFE TC CS ECC LE EVENE E CC EE OCT ON PAU ET COMO MIRE CES LITE EL PR NE EE ENS ECC ES 


Accompagné d'une cinquantaine de pages de documentation, Gisk Manager perrnet de recréer 
les commandes du Dos, redéfinir l'organisation d'une disquette, grâce à un jeu d'instructions qui 
en f ait un langage simple d'accès à la disquette. Il offre également un programme simple d'édition 
à l'aide de commandes évoluées. 4 utilitaires figurent aussi sur la disquette : 

Utili-disque : reconstruction d'une disquette détruite, Vérification, P lan d'occupation 


ur un backup particulièrement rapide 


Edicat : Edition du catalegue, classement des fichiers, Titres… 
Multi-disque : pour le classement de tous vos programvnes (| tri instantané 3) 


P 
LA 
LA 
LA 
LA 
* 
v 
# 
| 
| U. lra-copie : 
LA 
La 
LA 
La 
LA 
# 
LA 
# 
* 
LA 


Oisk Manager, le Dos en Kit 


de Dan Steeve) 


1145 PRINT COM$(I);: POKE 1403,40: PRINT 


COM$S {I + 1) 

1150 NEXT 

1155 VTAB 24: PRINT "Appuyez sur une touc 
he... "; CHR$ (29);: GOSUB 260 


1160 GOSUB 805 

1165 GOTO 55 

1170 REM 

1175 DATA 32,190, 222, 32, 70,231,134,81,44, 
48,192,136,208,4,198,81,240,8,202,208 
,:246,166,80, 76, 8,3, 96,0 

1180 DATA 104,168,104,166,223, 154, 72, 152, 
72, 96,0 

1185 DATA 162, 32,169, 2, 32,168, 252, 141,48, 
192,169,36,32,168, 252,141, 48,192,202, 
208,237,96 

1190 REM 

1195 DATA STARTUP ProDOS,Par Pascal Canto 
t pour POM'S 

1200 REM (Nom de la disquette) vv 

1205 DATA DISQUETTE DE DEMONSTRATION 

1210 DATA à 

1215 REM 

1220 DATA RANGE ERROR,NO DEVICE CONNECTED 
, WRITE PROTECTED 

1225 DATA END OF DATA, PATH NOT FOUND, PATA. 
NOT FOUND 

1230 DATA I/O ERROR, DISK FULL, FILE LOCKED 

1235 DATA INVALID OPTION,NO BUFFERS AVAIL 
ARLE 

1240 DATA FILE TYPE MISMATCH, PROGRAM TOO 
LARGE 

1245 DATA NOT DIRECT COMMAND, SYNTAX ERROR 
, DIRECTORY FULL 

1250 DATA FILE NOT OPEN, DUPLICATE FILENAM 
E 

1255 DATA FILEBUSY,FILE(S) STILL OPEN 

1260 REM 

1265 DATA ESC, Quitter, Fleches, defilement 
directory 

1270 DATA “W “X,Deplacent de 8 fichiers,” 
À ‘“Z,Debut/Fin du repertoire 

1275 DATA Tab, Ouvre le fichier DIR,Del,re 
rme le fichier DIR 

1280 DATA Return, Execute, “L, Charge (BAS e 
t BIN) 

1285 DATA “D, change Date,éèf ],reglent heu 
res/minutes 

1290 DATA /,Change prefixe, 1/2,change dri 
ve 

1295 DATA *,Lock/Unlock, “E,Delete 

1300 DATA “R,Rename, "V, Verify 

1305 DATA *F,Cherche fichier, *P,Imprime r 
epertoire 

1310 DATA à,à 


“ 
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e petit programme 

permet d'insérer des 

titres dans un 

programme Basic à 
l'aide de REMS sans que l'on voie 
ni le numéro de ligne, ni le mot 
REM. 


L s'utilise de la manière suivante : 


+ Lancement par 
BRUN TITRES.OBJ 


+ Chaque fois que l'on veut faire 
un titre : &T <RETURN>, nnnn 
(une touche), nnnn étant le 
numéro de ligne, l'appui d'une 
touche faisant apparaitre "REM" 
puis le texte et <RETURN:. Il ne 
se passe alors rien, en 
apparence... L'appui d'une 
touche non mumérique après &T 
<RETURN> fait sortir du mode 
titre. 


Fonctionnement 


Ce programme : 

* revectoiise l'ampersand, 

* déroute CHRGET ($Bl1) et 
teste si on entre bien un numéro 
de ligne : 

- Si oui, il écrit dans le buffer 
d'entrée ‘REM’, et un nombre de 
contrôle-H et d'espaces qui 
dépend de la longueur du numéro 
de ligne. 

- si non, il rend la main à 


Applesoft. . 


Récapitulation 
TITRES.OBJ 


03 
8D 
4c 
A9 
FE 
38 
20 
02 
C9 


A9 
F6 
cg 
B1 
03 
FF 
39 
AD 
cg 
9D 
A9 
E8 
DB 
SC 
FC 
FC 
85 
C6 
00 


4c 
03 
54 
00 
AS 
A9 
4c 
96 
80 
00 


80 
A9 
FO 
D0 
38 
34 


F5 
03 
03 
79 
85 
85 
03 
DO 
08 


A9 
F7 
C9 


10 
03 
DE 
8D 
39 
03 
FD 
60 
10 
F0 
sc 
20 
02 
03 
E8 
03 
02 
48 
00 


8D 
60 
20 
96 
85 
85 
48 
68 
04 
3E 
DB 


M Des 





titres 
le 


EM Basic, 


‘OREM Sylvie 


Programme TITRES.SCE 
(Assembleur Lisa 2.5) 
F 


2 * TITRES DANS UN 

3 # 

4 * PROGRAMME 

Sex 

6 ; 

7 HOOK EP£ $38 

8 AUX EPZ $FE 

9 OUTDO EQU $DB5C 
10 KEYIN EQU $SFDIB 
1i AMPER EQU $3F6 
12 X.REG EPZ $FC 
13 STXERR EQU $DEC9 
14 CHRGET EPZ $B1 
19 
16 ORG $300 
17 OBJ $300 
18. >; 
19 INIT: 
20 LDA #$4C 
21 STA AMPER-1 
22 IDA #DEB.TITR 
23 STA AMPER 
24 LDA /DEB.TITR 
25 STA AMPER+1 
26 RTS 
27 ;: 
28 DEB.TITR: 
29 CMP #'T' 
30 BEQ TITRE 
31 JUMP STXERR 
32 TITRE: 
33 JSR CHRGET 
34 BNE RTS 
35 LDA #$01 
36 STA PASSE 
ÉTÉ LDA HOCK 
38 STA AUX 
39 LDA HOOK+1 
40 STA AUX+1 
41 LDA #TESTS 
42 STA HOOK 
43 LDA /TESTS 
44 STA HOOK+1 
45 UMP S3EA 
46 ; 
47 TESTS: 
48 JSR KEYIN 
49 PHA 
50 LDA PASSE 
51 BNE SUITE.PL 
52) PLA 
53 RTS 
54 ; 
55" SUSIE.PL: 


57 SUITE: 


64 ; 
ECR.REM: 


ECR.CTRH: 


94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 RTS: 

108 

109 PASSE 
110 LONGUEUR 
111 


ECR -ESP: 


FIN: 


Gallet 


#$B0 
ECR.REM 
#SBA 
ECR.REM 
$200,X 


#50 
FIN 
g"R" 
5200, x 
OUTDO 


#7E” 
$200,X 
OUTDO 





#"M” 
$200,Xx 
OU7DO 


#93 
X-REG 
#588 


$200,X 


X.REG 


ECR.CTRA 


#53 


X-REG 
#$A0 


$200,x 
X.REG 


ECR.ESP 
#581 


#50 
PASSE 


PASSE+1-INIT 





—………….….……….….…..—..—._. EEE —_—_— _—_—_—_]_—_—_—_ 


Pom's n° 22 


37 





C4 « nnn6 Macintosh est une marque sous licence chez Apple Computer, Inc 





Tant qu'à faire 5 choses à la fois, 


Que ceux qui 
aiment travailler en 
faisant deux ou trois 
choses à la fois ne 
changent rien, au 
contraire, avec 
Apple et Jazz ils 
peuvent faire mieux. 

Jazz de Lotus, c'est un programme 
créé pour Macintosh 512 Ko, équipé d'un 
lecteur externe qui permet de devenir un 
parfait jongleur professionnel. 

Cinq programmes en concert, 
c'est-à-dire un tableur, un grapheur, un 
gestionnaire de fichier, un traitement de 
texte et un programme de 
communication réumis en un seul 
programme. Ou comment être à cinq 
sur la même souris. 





Pouvoir gérer cinq applications à 
partir d'un seul écran, modifier une 
donnée dans uné application et qu'elle 
se modifie automatiquement dans les 
autres, pouvoir sauter d'un graphe à un 
traitement de texte sans attendre les 
secondes qui durent une éternité pour 
changer de programme, c'est bien... 

Quand on s'aperçoit que ces cinq 
programmes sont individuellement 
excellents, c'est une révolution. 

Jazz, c'est l'outil idéal d'un directeur 
de service. | 
Prenons un exemple qui exige beaucoup 
de souplesse, de rapidité, et de doigté, la 
direction des services secrets : 

- Avec un tableur capable d'afficher 
8192 lignes sur 256 colonnes, la gestion 
devient beaucoup plus facile. Si un fait 





















nouveau apparaît, rien-n'est.plus 
que d'étudier deux ou trois hypothèses 
afin de ne pas être pris de court. 

- Quand un projet est fin prêt, il faut 
bien le présenter à ses supérieurs et 
parfois même beaucoup plus haut; un 
grapheur permet de transformer toutes 
les données numériques obscures en 
graphiques lumineux. 


—— fn 





- Si le projet est accepté, un traitement 
de texte est nécessaire pour que chaque 
agent concerné soit au courant dans ses 
moindres détails. Evidemment quand 
on travaille dans un tel service il vaut 
mieux pour Macintosh pouvoir copier: 
effacer, modifier, ou coller des dessins.à 
chaque instant. 





Apple Cernputer France. Avenue de l'Océanie 






autant les faire en même temps. 


é Fichier Edition MITA Graphe TIroce Axe Carac. Style 


0 RRAUT À 





| PAT PO tee 


Tableau des references 


TANT es 
Marche Chaco pi 

REPARTITION ventes 
Directeurs Ventes pes A Bénérices 


lertrim Zemetrim 3èmetrim 


Apple, le logo Apple sont les marques déposés d'Apple Computer. Inc. 


Jazz est une marque déposée de Lotus Development Corporation. 





Feuille de travail Jazz. 





Grâce à son gestionnaire de fichier, Jazz 
fait la fusion automatique entre un 
mémo et une liste de correspondants à 
sélectionner selon un critère spécial. 

Et avec un modem full duplex 1286 bauds 
en un instant votre correspondant 
reçoit toutes les informations précises à 
l'autre bout du monde. 

Avec Jazz l'entreprise est rentable, 
rondement menée, précise et discrète, 
inutile d'avoir 35 collaborateurs pour 
rédiger le projet. 

Jazz c'est cinq programmes liés 
entre eux si parfaitement que l'agent 
double est enfin enterré, place à l'agent 
quintuple. 


# 





Apple 


ZA. de Ceurtabœuf, 8.P 131, 91944 Les Ulis Cedex 
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JCU 





de MOES 


NS/IRNNQ SUR 


Pom's publie des articles et 
programmes destinés au 
Macintosh depuis septembre 84 
(numéro 14) et nous nous 
sommes aperçu - non sans une 
certaine émotion - qu'aucun jeu 
n'avait encore trouvé sa place 
dans nos colonnes. 





Facilités 

Reporter la ligne précédente 

Dévoiler la première lettre 
Dévoiler la seconde lettre 
Dévoiler la troisième lettre 
Donolior te quatrième fotre 


Dévoiler la cinquième lettre 
Dévoiler la solution 


UATRE 












A JE 
B](KI(T] 
CJ(L]I LU] 
D] M] (D) 
EJINI (M 
F0) (I 
(GI(PI CI 
[HAT LeI 
HIRIC] 






Pour palier cela, nous vous proposons un petit casse-tête directement dérivé du 
célèbre “Master Mind”. Les couleurs ont été ici remplacées par les 26 lettres de 
l'alphabet et il ne s'agit plus de trouver des codes, mais des noms communs de 
cinq lettres choisies au hasard par ie Macintosh. 


Utilisation du programme 


Le gros avantage du Macintosh, c'est qu'il n'est pas nécessaire - grâce aux menus 
dérouiants - de passer plus de temps à l'écriture du mode d'emploi qu'à celle du 
programme. Le seul point qui ne soit pas évident concerne ici les réponses à vos 
essais : la colonne de réponse située au dessus du bouton "Valider" (voir la copie 
d'écran ci-contre) indique le nombre de lettres mal placées, alors que la colonne 
située plus à gauche indique le nombre de lettres bien placées, la somme des deux 
colonnes indiquant le nombre de lettres réellement présentes dans le mot recherché. 


Si vous ne disposez pas de la disquette 22... 


.… il vous faudra, bien sûr, saisir le programme et, dans ce cas quelques rappels et 
indications ne sont peut être pas inutiles : 


- les indentations indiquent la continuité de la ligne ; 

* il faut prendre garde à ne pas remplacer les 0 (zéro) par la lettre O (ou l'inverse) ; 

+ lorsque des valeurs en hexadécimal apparaissent dans le programme, il 
ne faut pas oublier le "&" ou le “h”, 
surtout dans les DATA. 


Le programme ne fonctionne pas sans 
un fichier de mots ; sa création, avec le 
programme “Crefich" est donc 
nécessaire. Notons toutefois qu'il 
n'est pas indispensable d'avoir un très 
grand nombre de mots comme dans je 
fichier de la disquette 22 (2135). 






















Mot numéro 2136 : 








RÉ SRE TH 
FRERES EAINE 
BEC HEE-ANS 
EEPPACELEE RS 


RÉRÉRETEERE 





105 Mots 
pour commencer la 
constitution du fichier 


{ils sont extraits du fichier “Mots” 
accompagnant le programme sur la 
disquette 22, et constitué de 2135 
noms communs) 


ADAGE 
ALGOL 
ANIER 
ARYLE 
BACHE 
BATON 
BIFFE 
BONDE 
BROME 
CAGET 
CARME 
CHIPS 
COGNE 
CRABE 
CYGNE 
DELTA 
DONNE 
ECOLE 
EPAVE 
EXODE 
FERTE 


AGAPE 
ALLEU 
AORTE 
ATELE 
BAGNE 
BEDON 
BILLE 
BOREE 
BRUNI 
CAYEU 
CASTE 
CHYME 
COLZA 
CRAWL 
DAMAS 
DESIR 
DOUVE 
EDILE 
EPOUX 
FAIRE 
FILET 


AGORA 
ALYTE 
APPAT 
AUBIN 
BALSA 
BENET 
BLAIR 
BOUEE 
BULGE 
CALOT 
CELTE 
CIRSE 
COPIE 
CREVE 
DATTE 
DIANE 
DRILL 
ELEIS 
ESTER 
FANON 
FIOLE 


ABACA 
AIGLE 
AMIDE 
ARENE 
AUTEL 
BARBE 
BERYL 
BLUES 
BOXER 
BUTOR 
CANON 
CESTE 
CLICK 
CORON 
CROUP 
DECCA 
DINAR 
DUITE 
EMPAN 
ETHER 
FAUTE 


ACCRU 
AJOUT 
AMURE 
ARMEE 
AVOIR 
BARRE 
BIAIS 
BOGUE 
BRÈME 
CABRI 
CARAT 
CHAUX 
COATI 
COUAC 
CUMIN 
DEGEL 
DJINN 
EBATS 
ENGIN 
EVADE 
FELON 
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Programme “Jeu de mots” 


Ce progranune requiert la présence d'un fichier de mots. Si 
vous ne disposez pas de la disquette 22, ce fichier peut être 
constitué à l'aide du programre "CreFich”. 


ON BREAK GOSUB Arret:BREAK ON 

DEFINT A-Z:DIM Rps(19),Rect (3),Rect21(3 
),Pat (3),Tget (45),Tget2(45),Tc(10,4 
),Tm(4),Tm2(4),Tma(4),NDS$S(5),R£F(7) 
,; RSMm(7) :OPEN"R", 1, “Mots", 5:FIELD 
1,5 AS MotS:GET 1,1:Nm=CVI(MotS) : 
FOR I=0 TO 7:READ Me,MeS:MENU 5,1] 
Me,.MeS:NEXT:FOR I=0 TO 5:READ Nb 
S (I) :NEXT 

FOR I=0 TO 19:READ Rps(I):NEXT:FOR I- 
0 TO 7:READ Rff(I):NEXT:FOR I=0 T 
© 7:READ Rsm(I) :NEXT:FOR I=0 TO 3 
:Pat (I)=&hAAS5S5:NEXT:A!/-VARETR(RFF 
(0)):A!:A!I=VARPTR(Rsm(0)):FOR I=1 
TO 5:A! I:NEXT:WINDOW 1,, (13,33) 
-(499,329),4:GOSUB AffAlpha : GOSUB 
AffGril:GOSUB Init 

IF LOF(1)=0 THEN Erreur 


BattJeu: 

ON DIALOG GOSUB Dial:ON MOUSE GOSUB 
SpZ:ON MENU GOSUB Men:DIALOG ON 
:MOUSE ON:MENU ON:MENU 5,0,1: 

Batt: 

K$=INKEYS:IF KS<>''"' THEN GOSUB Touche 

GOTO Batt 


BAttAutre!: 

ON DIALOG GOSUB DialAutre:DIALOG ON: 
MENU OFF:MOUSE OFF:MENU 5,0,0 

BAttA: 

GOTO BATTa 


SpZ: 

DIALOG OFF :MOUSE OFF:Drz=5:A!-=VARPTR 
(Rps(3)):A! 468,260,280,4:IF Rpsi(0) 
THEN Drz=4 

A! 48,281,21,21:1IF Rps(0) THEN Drz=1 

A! 88,281,61,21:IF Rps(0) THEN Drz=2 

A! 128,281,101,21:1IF Rps(0) THEN Drz=3 

ON Drz GOSUB Z1,2Z2,23,Z4,Z5:DIALOG ON 
:MOUSE ON:RETURN 


Z1: 

X1=21:X2=-48:C=-64:GOSVB Sp22:RETVRN 

Z2: 

X1=61:X2=88:C=73:GOSVB Sp22:RETURN 

23: 

X1=101:X2=128:C=82:GOSVB SpZ2:1IF Nc=91 
THEN Nc=0 

RETURN 





Z4: 

Dp=-1:C1=0:FOR X-0 TO 4:X2=-40*X:A!=VAR 
PTR(Rps(3})}:A! 308+X2,260,280+X2,4 
:IF Rps(0)=0 THEN Z4b 

PUT(281+X2,5+26*(L-1}},Tget,PSET:Tc(L, 
X)=Nc:But=BUTTON(1l):IF But=1 THEN 
IF Nc<65 THEN BUTTON 1,0:GOTO Z 
4b 

FOR I=0 TO 4:IF Tc{(L,I)<65 THEN Dp=0 

NEXT:IF Dp THEN BUTTON 1,1 

Z4b: 

NEXT : RETURN 


Pol 
BEEP : RETURN 


Sp22 : 

A !=VARPTR (Rps (3) }:FOR Y=21 TO 261 STE 
P 30:C=C+1:A! X2,Y+20,X1,Y:IF Rps( 
0) AND C<>Nc THEN INVERTRECT VAR 
PTR(Rect2(0)}:GET(X1,Y)-(X2,Y+20), 
Tget :Rect2(0)=Y:Rect2(1)=-X1:Rect2(2 
)=Y+21:Rect2(3)=X2:INVERTRECT VAR 
PTR(Rect2(0)}:Nc=C 

NEXT : RETURN 


Bo: 
BUTTON 1,0, "Valider", (210,4+26*(L-1))-( 
270,26+26*(L-1)};:RETYRN 


Dial: 

IF DIALOG(0)<>1 THEN RETURN 

DIALOG OFF:L=L+1:IF L>1 AND L<ill THEN 
MENU 5,1,1 

IF L<1i THEN GOSUB Bo ELSE BUTTON CL 
OSE 1l:MENU 5,1,0 

L2=26*(L-2):FOR I=0 TO 4:Tm2(I)=TmI):T 
ma(l)=Tc(L-1,1}) :NEXT:LINE(140,44+L2 
)-(200,24+L2),,B:LINE(210,4+L2)-1{2 
70, 24+L2),,B:LINE(140,6+L2)-(200,2 
6+L2),,B:LINE(210,6+L2)-(270,26+L2 
),#»B:Bp=0:Mp=0:FOR I=0 TO 4:IF Tma 
(I)=Tm2(I) THEN Bp-Bp+1:Tma(1)=0:T 
m2 (I) =-1 

NEXT:FOR I=0 TO 4:FOR J=0 TO 4:IF Tma 
(I)=Tm2(J) THEN Mp=Mp+i:Tma(I)=0:T 
m2 (J)=-1 

NEXT:NEXT:MOVETO 170-WIDTH(NES (Bp) }; / 
2,20+L2:PRINT NDS (Bp) ; :MOVETO 240 
=WIDTH(NDS (Mp})/2,20+L2:PRINT Nb$ 
(Mp) ;:IF Bp<>5 THEN Dial2 

IF L<1l1l THEN BUTTON CLOSE 1 

GOSUB TrouveO:GOTO Dia1sS 

Dia12: 

IF L=11 THEN GOSUB TrouveN:GOTO DialsS 

FOR X=0 TO 4:X2=40*X:IF Tc(L,X)=0 THEN 
LINE (281+X*40,5+(L-1) *26)-(307+X* 
40,25+(L-1) *26),30,BF 

NEXT:DIALOG ON:RETURN 

Dials: 
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DIALOG ON:RETURN BAttAutre 


SpCM: 

RANDOMIZE TIMER:GET 1,INT(RND*Nm) +2: 
M$=MotS$S:FOR I=0 TO 4:Tm(I)-ASC (MI 
DS(MS,I+1,1)):NEXT:RETURN 


AffAlpha: 

TEXTFONT O:TEXTSIZE 24:TEXTMODE 1l:C= 
64:FOR X=0 TO 2:X2=40*X:FOR Y=0 T 
O 8:Y2=Y*30:LINE(22+X2,21+Y2)-(50+ 
X2, 43+Y2),,BF:LINE(20+X2,20+Y2)-(4 
8+X2,42+Y2),,B:LINE(21+X2,21+Y2)-( 
47+X2,41+Y2),30,BF:C=C+1l 

IF C<91l THEN MOVETO (35+X2)-WIDTH(CH 
R$(C))/2, 40+Y2:PRINT CHR$S(C); 

NEXT:NEXT:GET(21,21)-(48,42),Tget:Rect 
2(0)=21:Rect2(1)=21:Rect2(2)=42:Rec 
t2(3)=48:INVERTRECT VARPTR(Rect2 
(0) } :RETURN 


AffGril: 

FOR X=0 TO 4:X2=40*X:FOR Y=0 TO 9:Y2=Y 
*26:LINE(280+X2, 4+Y2)-(308+X2,26+Y 
2),,B:IF Y THEN Rect (0)=5+Y2:Rect ( 
1)=-281+X2:Rect (2)=26+Y2:Rect (3)=308 
+X2:FILLRECT VARPFTR(Rect (0)}, VAR 
PTR(Pat (0)) 

NEXT:LINE(280+X2,268)-(308+X2,290),,B: 
MOVETO 294+X2-WIDTH("?")/2,288:PR 
INT"?"; :NEXT:LINE(280,264)-(468,2 
64) :RETURN 


Init: 

FOR I=0 TO 7:MENU 5,1, (I<2)+1:NEXT:L= 
1:GOSUB Bo:Drok=0:Drz-0:Nc-65:FOR 
X=0 TO 4:FOR Y=1 TO 10:Tc(Y,X)=0:N 
EXT:NEXT:GOSUB SpCM:TEXTSIZE 12: 
Nmenul=4:RETURN 


TrouveO: 

Dtr=-1:GOTO Trouve 

TrouveN: 

Dtr=0 

Trouve: 

GOSUB AffSol 

IF L>S THEN WINDONW 2,,(30,50)-(270,120 
),2 ELSE WINDOW 2,, (30,240)-(270, 
310), 2 

TEXTFONT 0:TEXTMODE l:TEXTSIZE 12:1I 
F Dtr THEN MOVETO 10,15:PRINT'"Br 
avo !" 

MOVETO 10,31:PRINT "le mot était"; :1IF 

Dtr THEN PRINT" bien; 

PRINT" ‘“"" M$ “"”":BUTTON 1,1,'"Autre par 
tie",(5,45)-(100, 65) :BUTTON 2,1, "Q 
uitter", (140, 45)-(235, 65) 

RETURN 


DialAutre: 


IF DIALOG(0)<>1l THEN RETURN 

IF DIALOG(1)=-2 THEN WINDOW CLOSE 2:W 
INDOW CLOSE 1l:SYSTEM 

WINDOW CLOSE 2:CLS:BUTTON CLOSE 1:G 
OSUB AffAlpha:GOSUB AffGril:GOSUB 
init:RETURN BattJeu 


Touche: 

Nn=ASC(KS$) :IF Nn-32 THEN Numc=2:Numl=8 
:C=Nn:GOTO Touche2 

Nn=ASC(K$) AND &h5F:IF Nn<65 OR Nn>90 
THEN RETURN ELSE C-Nn:Numc=INT(( 
Nn-65)/9):Numl=(Nn-65) MOD 9 

Touche2: 

IF C-Nc THEN RETURN 

INVERTRECT VARPTR(Rect2(0)}:GOSUB Ge 
tCar:INVERTRECT VARPTR(Rect2(0)) 
:Nc=C:DIALOG ON:RETURN 


GetCar: 

Rect2(0)=21+Numl*30:Rect2(1)=21+Numc*40: 
Rect2(2)=42+Numl*30:Rect2(3)=48+Num 
c*40:GET(Rect2(1l),Rect2(0))-(Rect2 
(3)-1,Rect2(2)-1), Tget : RETURN 


AffSol: 

INVERTRECT VARPTR(Rect2(0)}:FOR 1I=0 
TO 4:Numc=-INT((Tm(I)-65)/9):Numl=( 
Tm(Il)-65) MOD 9:GOSUB GetCar:LINE 
(278+40*I, 266)-(310+40*1,292),,;BF:P 
UT(281+40*I, 269), Tget, PSET:NEXT:R 
ETURN 


Men : 

MENU OFF:MENU:Nmenu=MENU (1) :ON Nmenu 
GOSUB MenkRrp,MenL,MenL,MenL,MenL,M 
enL,MensSol 

IF Nmenu=7 THEN RETURN BAttAutre ELSE 

MENU ON:RETURN 


MenRrp: 

FOR X=0 TO 4:X2=40*X:Y2=(L-1) *26:Y1=Y2- 
26:GET(281+X2,5+Y1)-(307+X2,25+Y1) 
, Tget2:PUT(281+X2,5+Y2),Tget2,PSET 
:Tc(L,X)=Tc(L-1l,X) :NEXT:BUTTON ]1, 
1:MENU 5,1,0:RETURN 


MenL: 

MENU 5, Nmenu, 0: Nmenu=Nmenu-2 :INVERTRE 
CT VARFTR(Rect2(0)}:Numc=INT((Tmi{( 
Nmenu) -65)/9):Numl=(Tm(Nmenu)-65) M 
OD 9:Rect (0)=21+Numl*30:Rect (1)=21+ 
Numc*40:Rect (2)=42+Numl*30:Rect (3)= 
48+Numc*40:GET(Rect (1)},Rect(0)}-(R 
ect (3)-1,Rect (2) -1),Tget2 
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LINE (278+40*Nmenu,266)-(310+40*Nmenu,29 
2),,BF:PUT(281+40*Nmenu, 269), Tget2 
, PSET:X2=40*Nmenu:FOR Y=L-1 TO 9: 
Tc(Y+1,Nmenu)=Tm(Nmenu) : Y2=Y*26:PU 
T(281+X2,5+Y2),Tget2,PSET:NEXT:Nnm 
enul=Nmenul-1l:IF Nmenul=0 THEN FO 
R I=2 TO 6:MENU 5,1,0:NEXT 

INVERTRECT VARPTR(Rect2(0}}:RETURN 


MensSol : 
GOSUB TrouveN:RETURN 


Arret: 
RETURN 


Erreur: 

BEEP :WINDOW 1,, (100,120)-(412,160),2:T 
EXTFONT 0O:TEXTMODE 1l:TEXTSIZE 1 
2:MOVETO 10,15:PRINT"Désolé, pas 
de fichier de mots accessible..":BU 
TTON 1,1,"OK",(240,20)-(300,40) :ON 

DIALOG GOSUB DialEr:DIALOG ON 





Programme “CreFich” 


ON BREAK GOSUB Arret :BREAK ON:DEFIN 
T A-Z:DIM Rff(7),Rsm(7):FOR 1-0 T 
O 7:READ RFF(I):NEXT:FOR I-0 TO 7 
:READ Rsm(I):NEXT 

A!=VARPTR(RFF(0)}:A!:A!/=VARPTR(Rsm(0)) 
:FOR I=1 TO 2:A/ I:NEXT:FOR 1-4 T 
O 6:A! I:NEXT:WINDOW 1,, (180,120) 
-(332,210),4:GOSUB Text :OPEN"R", 1 
,"Mots",5:FIELD 1,5 AS Mot$ 

IF LOF(l) THEN GET 1,1:Nm-CVI(Mot$)+1 
ELSE Nm=1:LSET Mot$=-MKIS$ (Nm) :PUT 
1,1 

MOVETO 10,20:PRINT"Mot numéro":GOSUB 
AffN:EDIT FIELD 1,"",(40,30)-(110 
,45) : BUTTON 1,1,"OK",(10,60)-(71,8 
0) :BUTTON 2,1,"Quitter", (81,60)-(1 
42,80):ON DIALOG GOSUB Dial:DIAL 
OG ON 

BAtt: 

GOTO BAtt 


Dial: 

DIALOG OFF:WÜ=WINDOW(0):WI1=WINDOW(1) 
:DO=DIALOG (0) :DI=DIALOG(1):IF W1l= 
2 THEN WINDOW CLOSE 2 :WINDOW 1: 


EDIT FIELD 1,M$, (40,30)-(110, 45): 
DIALOG ON:RETURN 

IF D0=1 THEN SPb ELSE IF D0=6 
d 

DIALOG ON:RETURN 

SPb: 


THEN SP 


AttEr: 
GOTO AttER 


DialEr: 
WINDOW CLOSE 1l:MENU RESET:END 


DATA 0,Facilités,0,Reporter la ligne pr 
écédente,1l,Dévoiler la première let 
tre,1,Dévoiler la seconde lettre, 1, 
Dévoiler la troisième lettre, l,Dévo 
iler la quatrième lettre, 1,Dévoiler 

la cinquième lettre,l,Dévoiler la 
solution 

DATA AUCUNE, UNE, DEUX, TROIS, QUATRE, CINQ 

DATA 0,0,0,&h4E56,0,&h487A,&hFFF6,&hA97 
2,6&h4267,&h47FA, &hFFEE, &h2F13,6&h486 
E,8,&hA8AD,&h47FA, &hFFEO0, &h369F, &h4 
ESE, &h4E75 

DATA &h42A7,&hA924,&h2E1F,&h6706,&h2F07 
, &hA916,6&h60F2, &h4E75 

DATA &€h4E56,0,&h3F2E,68,&hA936,&hA937,&h 
4E5E, &h4E75 





IF D1=2 THEN LSET Mot$=-MKIS (Nm-1) :PUT 
1,1:CLOSE:WINDOW CLOSE 1l:SYSTE 
M 
Spd: 
M$=EDITS(l):IF LEN(MS$S)<>5 THEN GOSUB 
Erreur:DIALOG ON:RETURN 
DP=0:FOR i=1 TO 5:L$-MID$S(MS$,1I,1):IF L 
S<'""A" OR LS>"Z" THEN DP=-1 
NEXT:IF DP THEN GOSUB Erreur:DIAZLOG 
ON:RETURN 
LSET Mot$=MS$:Nm=Nm+l:PUT 1,Nm:GOSUB Af 
fN:EDIT FIELD 1,"",(40,38)-(110,4 
5) :DIALOG ON:RETURN 


Af£N: 

LINE(90,0)-(152,24),30,BF:MOVETO 90,20 
:PRINT Nm'":":RETURN 

Erreur: 


WINDOW 2,, (100,160)-(412,200),2:GOSUB 
Text :MOVETO 10,15:PRINT"Mots de c 
ing lettres majuscules SVP":BUTTON 

1,1,"OK", (240,20) -(300, 40) :RETURN 


Text : 
TEXTFONT 0:TEXTMODE 1l:TEXTSIZE 12:R 
ETURN 


Arret: 
RETURN 


DATA &h42A7,&hA924,&h2E1F,&h6706,&h2F07 
, &hA916, &h60F2,&h4E75,&H4E56,0,6&H3F 
2E,8,&HA936,&HA937, &H4ESE, &H4E75 
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De nombreux lecteurs qui utilisent Apple // et 
Macintosh neus ont demandé un programme 
pennettant de transmetère des données dans 
le sens Apple // = Mac. Rappelons que le 
programme paru dans le Pom's 14 assurait la 
transmission dans l'autre sens. 


Mode d'emploi 


Côté A pple // : Cenfigurer la carte série 
comme indiqué ci-Contre. Puis adresser les 
données vers la carte. Si vous transmettez un 
programme Basic, faites PR#1 (si la carte est 
en slot 1) puis LIST. Pour éviter de fâcheux 
retours Chariot, faites préalablement POKE 
33,33. Sous AppleWriter, dans le menu 
impression mettre la marge droite à255, puis 
faire NP. 


Côté Mac : Exécuter le programme Basic 
ci-contre, le câble étant connecté au port 
Modem. Ce programme étant réduit au Strict 
nécessaire, il Vous appartient dès la fin de la 
transmission d'arrêter le pregramme puis de 
faire en mode direct dans la fenêtre de 
commande : CLOSE. 


Il nous a été pessible de transmettre par 
exemple ie programme de calcul de % du 
Pom's 21 et de l'exécuter avec succès 
moyennant de menues modifications de 
syntaxe. La transmission d'image HGR est 
également envisageable : au lieu d'écrire dns 
un fichier, il s'agit de stocker dans la 
mémoire-écran. 


transfert 
Apple// -> Mac 


DEFINT 2-7 

CLS 

TEXTFONT 4 

TEXTSIZE 9 

FS-FILESS$ (0, "Fichier de s 
avvegarde 27") 

IF F$="" THEN END 

WIDTH "SCRN:", 80 

OPEN "COM1:300,N, 7,1" FOR 
INPUT ÀS 1 

OPEN"O",2,FS 

10 CS=INPUTÉ{1,1) 


IF C$="{" THEN CS="é" 
IF C$=")}" THEN C$-"e" 
IF C$="@"" THEN CS="à" 
IF C$="\" THEN CS="c" 
IF C$="}" THEN C$S="ÿ" 
PRINT C$; 

PRINT #2,C$; 

GOTO 10 


Configuration de 
la carte Super Série 





“Jumper Bloc” 
en position "MODEM" 





SORT MENU, un utilitaire de wi de menus, 


CUBE : ua jeu en accessoire 


MEGAROIDS : un jeu d'adresse 


PAINT MOVER : copier et manipuler les images MacPaint 

ACCESS@IRES DE BUREAU ‘MOCK : mini-traitement de texte, grapheur et terminal 
CONVERT DAM: pour passer de D A Mover à Font D/A Mover 

FEDIT : un éditeur de blocs el de fichiers (en anglais) 


IDLE : pour préserver vetre écran durant de longs traitements 
MULTISCRAP :-accessoire permettant de diposer de plusieurs albums à la fois 
C CHECK : Pour vérifier les niveaux de parenthèses en langage "C’ 

HEX CALC : l'indispensable calculawice bexadécimale 


MEM WINDOVW : permet de lister la mémoire du Mac 












Fm @ 


Mogaroids Convorston DAM Fedit 3 0 hetall icon 


EO A à 


&rvwaire Conf Terminal  SortMenu HexCak 


m) D € 


MernW'indow Escher Painthover 


Disquette Mac ‘A 


Disquette Mac 22 


Clavier 


Disquette Mac ‘A’ : 80,00 F TTC Franco, Bon de Commande page 74 








Vous trouverez sur Ia disquette d'accompagnement Macintosh de ce numéro, 
outre les programmes pubiiés dans le cahier Mac, le nouveau système 
correspondant à la version 5.1 du Finder. Les 
commentaires d'utilisation se trouveront directement sur BAT ULELUU) 


“par petite icône 





hiérarchisé. 

L s'activera dès que le 
support magnétique (disque 
ou disquette) aura plus de 
400Ko de capacité. 


Vous trouverez sur la disquette, outre le nouveau fichier System et le nouveau 
Finder, le driver ImageWriter2, le driver Laser Writer pour Mac 128K et deux 
nouveaux accessoires de bureau : un sélecteur d'’unprimante reconnaissant entre 
autres les deux types d'ImageWriter et, dans le tableau de bord, la possibilité 
de définir un cache-mémoire. Un cache-mémoire fait ce que faisait le Mac 
Booster d'ACI : mettre, dans une mémoire vive dont la taille est fixée par 
l'utilisateur, les éléments les plus souvent utilisés, cette fréquence d'utilisation 
étant appréciée par le programme de cache. Cela perinet de nettement réduire 
les temps de réponse du Mac.L'accessoire "Clavier" autorise désonnais l'essai 
des différentes poiices présentes dans le système. Enfin, la disquette Pom's 
contient aussi une nouvelle version de “Font DA/Mover”. 


[2] 
mr DEFIGIENIEIL IN 
MTTERIEINE LE LE 
Rene 


la disquette. Le nouveau Finder comprend, de façon 
optionnelle, des mini-icônes et certains nouveaux gadgets 
pour le rangement des icônes. Ce qui fait vraiment son 
originaiité, c'est le HFS : Hierarchical File System. Voici 
enfin un système de gestion de fichiers réellement 


par nom 

par date 
par taille 
par type 


EC——— Yoblieau de bord 


1 


Fond de l'écran 


Ÿ S  s 
+*O+te*+o 


Vitesse du double-ctio 


AppleTalk 
@ Connenté 
D cicrreoté 


Glissement Souris 


e O 


fi 


Clignoternent du : | = 
point d'insertion  (® C 
Lent Rapide 


Répétition des touches 


000®@0 


Lent Rapide 


Pom' 


psr icûne 





ON EU 
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“urerrare) élésiréces 


[4 Que faire avec l'écran du 
Macintosh ?” Séduit par 
sa fmesse de définition, 
particulièrement lorsque 
l'on vient de l'Apple //, voici la 
question que l'on peut se poser. 
Le programme qui suit a été écrit 
en se pliant aux contraintes 
suivantes : utiliser pleinement la 
haute résolution, respecter les 
conventions de présentation Mac" 
et, si possible, être inutile... Dans 
un premier temps, le dessin d'une 
courbe qui pourrait évoluer en 
finesse a été le but de ce 
programme. 


Fractal | 
Hyperpar&iélépipède 





Voici quelques mots de théorie 
sur la courbe qu'étudia Von 
Koch. Considérons le segment de 
droite suivant : 


Ce segment est divisé en trois 
parties égales. La partie centrale 
disparaît et est remplacée par les 
deux autres côtés d'un triangle 
équilatéral dont elle servait de 
base. Nous obtenons alors le 
fractal d'ordre 1 : 


La figure ainsi obtenue comprend 
maintenant quatre segments de 
longueurs égales. Faisons subir le 
même sort à chacun d'eux, il en 





Pom's n° 22 


résultera évidemment le fractal 
d'ordre 2 : 


Notons au passage que cette 


figure comprend seize segments. 
A chaque nouvelle étape dans la 
constructions de nos fractaux 
(fractals ?), le nombre de 
segments est multiplié par quatre. 
La longueur de chacun d'entre 
eux est égale au tiers de ceux du 
fractal d'ordre immédiatement 
inférieur. 


Pour un fractal d'ordre n dont 
l'élément de base mesurait une 
unité, nous trouvons : 

4" côtés ayant chacun une 
longueur de 1/(3"). La longueur 
dévéloppée est donc : 41/37. Cette 
fonction, de type exponentiel, 
tend vers l'infini lorsque n tend 


Figure ; 


©) triangie <- 
© triangle -> 
O ftenagone <- 
Ohenagone -?> 


00®@000 
BRON —=ES 





vers l'infini : le calcul de la 
longueur développée peut donc 
rapidement provoquer un 
overf low sans pour autant que le 
dessin prenne plus de place sur 
votre écran. 


Un fractal d'ordre 5 ne compren- . 


dra pas moins de 1024 (1 K !) 
segments totalisant environ 4,213 
unités de longueur. 


Lorsque n tend vers l'infini, la 
courbe qui en résulte s'inscrit 
dans un espace à 1,26 dimen- 
sion ! plus précisément : 
lopg(4)/1og(3), 

autrement dit un nombre non 
entier. Le caractère ésotérique de 
la chose ne vous échappera pas ; 


le programme lui, ne s'attache 
qu'à son aspect esthétique. 


Il vous propose de tracer ces 
figures en prenant pour base un 
triangle ou un hexagone, avec un 
développement interne ou exteme. 
1 vous pennet de superposer les 
graphes pour l'obtention de 
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dessins du plus bel effet, flocons 
de neige par exemple. 









Fractal 
Hyperparallélépipède 






k 


Plus insaisissable (?) que le 
fractal : l'hyperparallélépipède. 
Le prétexte à nos dessins est 
maintenant la représentation en 
deux dimensions (notre écran) de 
parallélépipèdes en comprenant de 
3 à 8. Le résultat, s'il est 
totalement incompréhensible, est 
souvent particulièrement élégant. 


Si nous prenons le cube suivant : 





: dj 


nous voyons que quatre données 


ont suffit à sa construction : 
l'origine O et les trois vecteurs I, 
J, K. Ainsi, la position de chaque 
sommet pourra s'obtenir par la 
simple combinaison des différents 
vecteurs : Si = O-3J + OK par 
exemple. 


Vous allez pouvoir dessiner des 
parallélépipèdes en indiquant 
successivement l'origine puis les 
trois à huit vecteurs. Il seront 
représentés à l'écran en suivant 
les règles qui ont servi pour la 
construction du cube. 
CP 


vous permet de positionner 


Ce premier curseur : 


l'origine. Elle est alors 
maténalisée ainsi : 
Ce nouveau curseur : + 


vous permet de définir les 
différents vecteurs. Ils se 
matérialiseront ainsi : + 


Voici l'origine et le premier 





Tracés de fractaux et 
hyperparallélépipèdes 


REM Initialisations - tableaux et 


constantes 





vecteur : 


Un disposition comprenant une 
origine et 3 vecteurs vous donnera 
un volume bien réel, en-deçà de 
l'“espace-temps” ! Par la suite, en 
ajoutant des vecteurs, on dépasse 
cette limite et on se surprend à 
passer beaucoup de temps, dans 
un premier temps, à essayer de 
deviner le futur dessin puis à créer 
des formes esthétiques. 

Pour le reste de la présentation, 
les menus Mac ne présentent 
aucun secret. 

Le Basic qui suit utilise des 
routines en assembleur extraites 
des précédents numéros de 
Pom's, pour les traitements 
suivants : 


* suppression des menus (cf 
Pom's 17), 

+ récupération des curseurs (cf 
Pom's 18), 

+ récupération des icônes (cf 
Pom's 18), 

* récupération de la position de 
la souris (cf Pom's 19), 

* fermeture de fenêtres (cf 


Pom's 19). 
G 


cf Pom's n° 17 


DATA &h4E56,0,&h3F2E,8,&hA936,&hA937,&h 
4E5E, &h4E75 


REM Routine de récupération des 


curseurs - cf Pom's n° 18 


BREAK ON:ON BREAK GOSUB BRK:HIDECUR 
SOR:DEFINT A-Z:Unitl#-1/3:Unit2#= 
1/2:Unit3#-=2/3:Vect2#=SOR(3)/6:PId 
iv6#=3.1415926#/6:DIM Lm(15),Pat (3 
),Rect (3),Sr{(19),Xn(256),Yn(256),V 
ectX(8),VectY(8}),Xvect (8),XYvect(8) 
,;.Nn(8),Iconef18),TIicone(65) 

FOR I=0 TO 3:Pat (I1)=&hAASS:NEXT:Dtr=-1 


REM Data pour implantation des routines 
en langage machine 

REM Routine de fermeture des fenêtres - 
cf Pom's n° 19 


DATA &h42A7, &hA924, &h2E1F,&h6706,«&h2F07 
,&hA916,&h60F2, &h4E75 


REM Routine de suppression des menus - 


DATA &h4E56,0,&h42A7,&h3F2E,8,&hA9B9,&h 
2057,&h2E90, &hA851, &h4ESE, &h4E75 


REM Routine de détection de la position 
de la souris - cf Pom's n° 19 


DATA 0,0,0,&h4E56,0,&h487A,&hFFF6, &hA97 
2,&h4267,&h47FA, &hFFEE, &h2F13,&h48 
6E,68,&hA8AD,&h47FA, &hFFE0,&h369F,& 
h4ESE, &h4E75 


REM Routine de récupération des icônes 
- cf Pom'sn°18 

DATA &h4E56,0,&h42A7,&h3F2E, &hC, &hA9BB, 
&h2057,&h2250,&h246E, 8,&h24FC,32, 3 
2,&h701F,&h24D9,&h51C8,&hFFFC,&h4E 
SE, &h4E75 

CM$=" A0 9F9DD783DCD08295868595D09682919E9 
39F80989F9E95D0999E947E80959E94919 
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E8495D0809F8582D09CD78584999C99839 
184958582D09485D0BD9193999E849F839 
8":FOR I=1 TO LEN(CM$)-1 STEP 2:C 
M2$=CM2$+CHRS$S (VAL ("&h"+MIDS(CMS, 

I,2)} XOR &hF0) :NEXT 


REM Lecture des Data, implantation des 
routines en mémoire, fermeture des 
fenêtres, suppression des menus 
inutiles et configuration des 
menus conservés 

FOR I=0 70 15:READ Lm(I):NEXT:FOR I=0 

TO 10:READ Cur(I}):NEXT:FOR 1-0 
TO 19:READ Sr(Il):NEXT:FOR I=0 TO 
18:READ Icone(I):NEXT:A!-VARPTR 
(Lm(0)}:A! 

MENU 3,0,1,CHRS$ (20) :MENU 3,1,1,CM2$:M 
ENU 4,0,1,"Arrêt":MENU 4,1,1, "Qui 
tter":MENU 5,0,0, "Tracé":MENU 5,1 
,2, "Fractal":MENU 5,2,1, "Hyperpara 
llélépipède":A!=VARPTR(Lm(8)}:FOR 

1-0 TO 3:A! I:NEXT:ERASE Lm:GOS 
UB Ffr:ON MENU GOSUB Mfr 


REM Boucle d'attente pour l'option 
"Fractal" 

Bfr2: 

MENU ON:DIALOG ON:ON DIALOG GOSUB D 
Ér 

Bfr: 

IF MOUSE(0) THEN GOSUB Sfr 

GOTO Bfr 


REM On ignore "“Commande-Majuscule- ." 


BRK: 
RETURN 
REM Boucle d'attente pour l'option 


“"Hypesparallélépipède" et 
modification de la forme du 
curseur si nécessaire 

B4y2: 

MENU ON:DIALOG ON 

BHy3 : 

ON DIALOG GOSUB DHy 

B4y: 

IF MOUSE(0) THEN GOSUB SHy 

IF BUTION(l1)=0 THEN BHy 

A!=VARPTR(Sr(3)}:A! 500,310,440,290:1IF 
Sr(0) TAEN Dbo 

Hbo: 

IF Dcur THEN A!=VARPTR(Cur(0)}:A! 2:Dc 
ur=0 

GOTO BHy 

DBo : 

IF NOT Dcur THEN INITCURSOR:Dcur--1 

GOTO BHy 


REM Boucle d'attente d'une action sur 
le bouton "Autre" 








LL 
N/A l 
[| AE 2 


LE 


Ie 
#7 TL 
CE 


Att: 

ON DIALOG GOSUB Att2:DIALOG ON 

BAtt: 

GO7'O BaAtt 

Att2: 

IF DIALOG(0)=1 THEN CLS:BUTTON 1,0," 
Valider", (440,290)-(500,310) :A!=VA 
RPETR(Cur(0)i:A! 3:Drch=-0:RETURN B 
Hy3 ELSE RETURN 


REM Traitement d'une action dans la 
barre des menus 

MËr: 

MENU :Me0=MENU(0) :Mel=MENU(1) :IF me0=3 

THEN RETURN ELSE IF Me0=4 AND 

Mel=l THEN SYSTEM ELSE IF Mel=1 
AND Dtr OR Mel=2 AND NOT Dtr THE 
N RETURN 

MENU 5,0,0:MENU OFF:DIALOG OFF:A!/=VA 
RETR(Cur(0)):A! 4 

IF Mel=1 THEN Dtr-=-1l:MENU 5,1,2:MENU 
5,2,1:WINDOW CLOSE 1:GOSUB Ffr: 
RETURN Bfr2 

Dtr=0:MENU 5, 1,1:MENU 5,2,2:WNINDONW CL 
OSE 1:NINDOW CLOSE 2:GOSUB FHy: 
RETURN BHy2 


REM Traitement d'une action sur le 
bouton de la souris pour l'option 
"Fractal" 

SÉT: 

IF WINDOW(0)=2 THEN RETURN ELSE Rect 

=MOUS E(2) :RectX=MOUSE(1l) 

WHILE MOUSE(0)--1:Mol-MOUSE(1) :Mo2=MO 
USE (2) :Rect (0)=RectY:Rect (2)=Mo2:R 
ect (1)=RectX:Rect (3) =Mol 

IF Mo2<RectY THEN SWAP Rect(0),Rect (2) 

IF Mol<RectX THEN SWAP Rect{(l),Rect (3) 

A!=VARETR(Sr(3)}:A! 382,315,1,1:IF Sri 
0) THEN FRAMERECT VARFTR(Rect (0 
)) :FRAMERECT VARFTR(Rect (0)) 

NEND :IF Sr(0)=0 THEN RETURN 

X=(Rect (3) -Rect (1))/2:Y=(Rect (2) -Rect (0) 
)/2:Cx=XtRect (1) :Cy=Y+Rect (0) :IF X 
<5 OR Y<5 THEN RETURN 
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A!=VARPTR(Cur(0)):A! 4:MENU 5,0,0:DIA 
LOG OFF:ON Fig GOSUB Dtr,Htr,Dhe 
,Hhe 

INITCURSOR:WINDOW 2:MENU 5,0,1:DIAL 
OG ON:IF BUTTON(11)=-0 THEN BUTT 
ON®1 1,,1 

RETURN 


REM Traitement d'une action sur le 
bouton de la souris pour l'option 
“"Hyperparallélépipède" 

SHYy : 

WHILE MOUSE (0) : WEND:RectY=MOUSE (2) :R 
ectX=MOUSE(1):IF Drch THEN SHy2 
ELSE Drch=--l:Ind=-1:CIRCLE(RectxX, 
RectY),5:LINE(RectX-10,RectY)-(Rec 
tX+10,RectY) :LINE(RectX,RectY-10)- 
(RectX,RectY+10) :Xorg=-RectX:Yorg=R 
ectY:A!/=VARPTR(Cur(0)}:A! 2:Dcur= 
0 : RETURN 

SHy2: 

IF Ind<>7 THEN SHy3 

DIALOG OFF:BUTTON 1,0:DIALOG OFF:BE 
EP:WINDOW 2,,(140,150)-(372,203), 
4:A!=VARPTR(Icone (0)}:A! 1, VARPT 
R(TIicone (0)) :PUT(10,10),TIcone:TE 
XTFONT 0:TEXTMODE l:TEXTFACE O0: 
TEXTSIZE 12:MOVETO 60,24:PRINT" 
Pas plus de huit" 

MOVETO 60,40:PRINT"vecteurs, S.V.P.";: 
BUTTON 1,1,"OK", (188,14)-(220,38) 
:ON DIALOG GOSUB Bok:DIALOG ON 

BBH y : 

GOTO BBHy 

BBH y2: 

RETURN BHy2 


REM traitement d'une action sur le 
bouton "OK" et mise à jour de la 
fenêtre (option 
"Hyperparallélépipède") 

BoKk: 

IF DIALOG(0)<>1 OR DIALOG(1)<>1 THEN 
RETURN 

DIALOG OFF:WINDOW CLOSE 2:WINDOW 1l: 
BUTTON 1,1:DIALOG ON:PENMODE 8 


CIRCLE(Xorg, Yorg),5:LINE(Xorg-10,Yorg) 
- (Xorg+10, Yorg) : LINE (Xorg,Yorg-10) 
—{Xorg, Yorg+10) :FOR Z=0 TO 7:Vix= 
VectX(Z)+Xorg:Viy=VectY(Z)+Yorg 

LINE(Vix-2,Viy-2)-(Vix+2,Viy+2),,BF:LI 
NE(Vix-5,Viy)-(Vix+5, Viy):LINE(Vi 
X, Viy-5)-(Vix, Viy+5) :MOVETO Xorg, 
Yorg:LINETO VectX(2)+Xorg, VectY(Z 
)+Yorg:NEXT:PENMODE 10 

RETURN BBHy2 


REM suite traitement d'une action sur 
le bouton de la souris pour 
l'option "Hyperparallélépipède" 

SHy3: 

Ind-Ind+l:VectX(Ind)-RectX-Xorg:VectY{(In 
d)=RectY-Yorg:Nn(Ind)=0:LINE (RectX 
-2,RectY-2)-(RectX+2,RectY+2),,BF: 
LINE (RectX-5,RectY)-(RectX+5,RectY 
):LINE(RectX,RectY-5)-(RectX,RectY 
+5) 

MOVETO Xorg, Yorg:LINETO RectX,RectY:I 
F Ind=-1 THEN BUTTON 1,1 

RETURN 


REM Traitement d'un événement de type 
"Dialog" pour l'option “"fractal" 

DÉTr: 

DIALOG OFF:Dia=DIALOG(0):IF Dia<>1l T 
HEN Dfr2 

IF DIALOG(1)-11 THEN BUTTON 11,0:WIN 
DOW 1:CLS:WINDOW 2:GOTO DfrF EL 
SE IF DIALOG(l1)>6 THEN BUTTON F 
ig+6,1:BUTTON DIALOG(1),2:Fig-DI 
ALOG(1)-6 ELSE BUTTON Com+l,1l:BU 
TTON DIALOG(1),2:Com=DIALOG(1)-1 
:GOTO DfrF 


Dfr2: 

IF Dia=3 THEN Dia=DIALOG(3):WINDOW Di 
a ELSE GOTO DfrF 

IF Dia=1l THEN A/-VARPTR(Cur(0)):A! 2: 
GOTO DfrF ELSE INITCURSOR 

DEÉrTE : 

DIALOG ON:RETURN 


REM Traitement d'un événement de type 
"Dialog" pour l'option 
“"Hyperparallélépipède" 

DHy: 

DIALOG OFF:MENU 5,0,0:A!=VARPTR(Cur( 
0)}:A! 4:BUTTON CLOSE l:CLS:1Ind= 
Ind+l:FOR I-0 TO 2"Ind-l:N=I:FOR 
J=Ind-1l TO 0 STEP -l:Nn(J)=INT(N/ 
27J) :N=N-Nn(J) *2°TJ:NEXT:Xn(Il)=Xorg 
:Yn(Il)=Yorg:FOR J=-0 TO Ind-l:IF N 
n(J)<>0 THEN Xn(I1)=Xn(I) +VectX(J) : 
Yn (I)=Yn(I) #Vect}Y(J) 

NEXT:FOR J=0 TO Ind-l:IF Nn(J)=0 THEN 
Xvect (J)=Xn(I)+VectX(J) : Yvect(J)= 
Yn(I)+VectY(J) :LINE(Xn(I},Yn(I))-( 
Xvect (J),Yvect (J)) 

NEXT:NEXT:BUTTON 1,1,"Autre", (440,290 
)-(500,310) :MENU 5,0,1:DIALOG ON 
:INITCURSOR:RETURN Att 


REM Tracé d'un fractal à l'intérieur 
d'un triangle 

DÉr: 

FOR J=-5 TO 3 STEP 4:X1(Com)=Cx+X*COS( 
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J*PIdiv6#):Y1(Com)=Cy-Y*SiN(J*PIdi 
v6#) :X2 (Com)=Cx+X*COS ( (J+4) *PIdivé6 
#) :Y2(Com)=Cy-Y*SIN((J+4) *PIdiv6#) 
:GOSUB SpR:Com=Com-l:NEXT:RETURN 


REM Tracé d'un fractal à l'extérieur 
d'un triangle 

Htr: 

FOR J=11 TO 3 STEP -4:X1(Com)=Cx+X*COS 
(J*PIdiv6#) :Y1(Com)=Cy-Y*SIN(J*PId 
iv6#) :X2(Com)=Cx+X*COS ((J-4) *PIdiv 
6#):Y2(Com)=Cy-Y*SIN((J-4) *PIdivé6# 
) :GOSUB SpR:Com=Com-l:NEXT:RETUR 

L N 


REM Tracé d'un fractal à l'intérieur 
d'un hexagone 

Dhe: 

FOR J=-1 TO 9 STEP 2:X1(Com)=-Cx+X*COS( 
J*PIdiv6#):Y1(Com)=Cy-Y*SIN(J*PIdi 
v6#) :X2 (Com)=Cx+X*COS ((J+2) *PIdivé 
#):Y2(Com)=Cy-Y*SIN((J+2) *PIdiv6#) 
:GOSUB SpR:Com=Com-1:NEXT:RETURN 


REM Tracé d'un fractal à l'extérieur 
d'un hexagone 

Hhe: 

FOR J=11 TO 1 STEP -2:X1(Com)=Cx+X*COS 
(J*PIdiv6#) :Y1(Com)=Cy-Y*SIN(J*PId 
iv6#) :X2(Com)=Cx+X*COS((J-2) *PIdiv 
6#):Y2(Com)=Cy-Y*SIN((J-2) *PIdiv6# 
) :GOSUB SpR:Com=Com-1:NEXT:RETUR 
N 


REM Sous-programme d'affichage fractal 

SpR: 

IF Com=0 THEN LINE(X1(Com),Y1(Com)}i-(X 
2(Com), Y2 (Com) j : Com-Com+1 : RETURN 

DX(Com) =X2 (Com) -X1 (Com) :DY (Com) =Y2 (Com) - 
Y1 (Com) :X1 (Com-1)=X1 (Com) : Y1(Com-1 
)=Y1 (Com) :X2 (Com-1)=X1 (Com) +Unit1# 
*DX(Com) : Y2 (Com-1)=Y1 (Com)+Unit1#* 
DY (Com) :Com=Com-1:GOSUB SPR 

X1(Com-1)=X2(Com-1) : Y1(Com-1)=-Y2 (Com-1) : 
X2 (Com-1) =X1 (Com) +Unit2#*DX (Com) +V 
ect2#*DY (Com) :Y2(Com-1)=Y1(Com) +Un 
it2#*DY (Com) -Vect2#*DX(Com) : Com-Co 
m-1:GOSUB SpR 

X1(Com-1)=X2(Com-1) : Y1(Com-1)=Y2(Com-1l) : 
X2 (Com-1)=X1 (Com) +Unit3#*DX(Com) : Y 
2(Com-1)=Y1 (Com) +Unit 3#*DY (Com) :Co 

| m=Com-1:GOSUB SpR 
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ARE 


* Es D æ DSi 


X1 (Com-1) =X2 (Com-1) : Y1 (Com-1)=Y2(Com-1l) : 
X2 (Com-1)=X2 (Com) : Y2 (Com-1)=Y2 (Com 
) :Com=Com-1:GOSUB SpR 

Com=Com+1l :RETURN 


REM Affichage des fenêtres et 
initialisations nécessaires pour 
l'option "“Fractal" 

Ffr: 

A!=VARPTR(Cur(0)):A! 4:SHOWCURSOR:Fig 
=l:Com=3:WINDON 1,,(3,23)-(386,33 
9),3:PENPAT VARPTR(Pat(0)}:PENM 
ODE 10 

WINDOW 2,, (398, 30) -(501, 300) ,2:TEXTFO 
NT O0:TEXTFACE 4:MOVETO 2,120:PR 
INT"Complexité :":FOR I=0 TO 5:BU 
TTON I+1,ABS(I=3)+1,STR$(I), (2,1 
32+1*16)-(50,147+I*16),3:NEXT 

MOVETO 2,20:PRINT'"Figure :":BUTTON 7, 
2, "triangle <-", (2,32)-(100,47),3: 
BUTTON 8,1,"triangle ->",(2,48)-1( 
100,63),3:BUTTON 9,1, "hexagone <- 
", (2, 64)-(100, 79),3:BUTTON 10,1," 
hexagone ->", (2, 80)-(100,95),3:BUT 
TON 11,0,"Effacer",(5,245)-(98,265 
) 

MENU 5,0,1:INITCURSOR:RETURN 


REM Affichage de la fenêtre et 
initialisations nécessaires pour 
l'option "“Hyperparallélépipède" 

FHy: 

A!=VARPTR(Cur(0)};:A! 4:SHOWCURSOR:WI 
NDONWN 1,;, (3,23) -(509, 339), 3:BUTTON 
1,0,"Valider", (440,290)-(500, 310) 

:MENU 5,0,1:A!=-VARPTR(Cur(0)):A! 

3:Drch=0:PENPAT VARPTR(Pat (0)}:P 

ENMODE 10:RETURN 
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Une rubrique ouverte aux lecteurs : 


MacAstuces 


Avec ce numéro débute cette série 
régulière. Nous serons heureux de vous 
y faire partager non seulement nos 
découvertes, mais aussi celles qui nous 
auront été proposées par les lecteurs de 
Pom's. 


Réduire le système ? 


Le fichier System comporte un certain 
nombre d'éléments qui ne sont pas tous 
indispensables pour un bon 
fonctionnement du Macintosh. C'est 
dans ce dossier que se trouvent entre 
autres les polices de caractères et les 
accessoires de bureau. Avec le système 
correspondant à la version 4.1 du 
Finder, que nous modifions ici, le fichier 
System occupe en général environ 130 
K. Nous allons voir comment réduire ce 
système. 


Remarques : attention à ne pas 
modifier le fichier système d'un 
programme du commerce sans en avoir 
fait une copie de sécurité. En effet, 
certains auteurs de programmes ont 
modifié le système et les techniques de 
réduction présentées ci-dessous 
pourraient alors avoir des conséquences 
destructrices. Il est parfaitement possible 
que certaines des réductions indiquées 
ci-dessous empêchent tel ou tel logiciel 
de tourner. Faites donc des essais avant 
de détruire un sysème original. 

La première étape pour gagner de la 
place, avant de réduire un système, 
consiste à remplacer le Finder par un 
MiniFinder, ce qui permet d'économiser 
d'un seul coup un cinquantaine de Ko. Il 
est même possible de fixer le démarrage 
sur un programme et d'éliminer Finder et 
MainiFinder : mais, dans ce cas, la sortie 
du programme entraine une bombe. 


Suppression des polices et 
accessoires 


A l'aide du Font/DA Mover, vous 
pouvez facilement éliminer toutes les 
polices non indispensables. Ensuite, 
éliminez tous les accessoires sauf un ; 
gardez par exemple l'Album. S'il ne 
reste pas au moins un accessoire, le 
Finder “perd les pédales”. 

Avec la suppression de toutes Les polices 
non indispensables et de tous les 
accessoires sauf l'Album, nous passons 
de 130000 à 53825 octets. A partir de 
maintenant, nous allons utiliser des 
techniques plus.dangereuses : faites donc 
une copie de la disquette avant de 
continuer. 


Remplacement de l'Album 
par un accessoire vide 


Si nous voulons un système minimum, 
par exemple sur une disquette ne 
comportant que des utilitaires, nous 
pouvons remplacer l'Album par un 
accessoire "vide", qui ne fait rien. Nous 
utiliserons pour cela le programme 
Resource Editor. 


Ouvross le fichier System, ce qui nous 
fait voir l'ensemble des "ressources" 
consitutant le System, toutes identifiées 
par un nom de trois ou quatre caractères. 
Ouvrons le DRVR, qui contient 
l'ensemble des accessoires, puis 
ouvrons l'Album. Nous voyons 
apparaître le code objet de cet accessoire, 
que nous remplaçons par un simple RTS 
(code $4E75). 


Suppression de l'imprimante 
Si l'on n'a pas l'intention d'utiliser 
l'imprimante, on peut détruire le driver 
"Print" en le sélectionnant et en appuyant 
sur Effacer (Clear). Puis fermons DRVR 
et détruisons de la même façon PREC, le 
Printer RECord, etle fichier PAPA. 


Réduction à une seule police 


Ouvrons FONT et ne gardons plus que 
la police Chicago-12. Certes, cela rendra 
à l'écran les noms des disquettes et les 
listes sans icônes moins agréables à lire, 
mais cela gagnera encore de la place. 


CURS 

Nous pouvons éliminier les deux 
curseurs en forme de croix, ne gardant 
que la montre et le curseur d'insertion. 
Bien entendu, cela sera néfaste aux 
programmes qui, comme Multiplan, 
utilisent ces curseurs. 


FKEY 

Si nous n'avons pas besoin des clés de 
fonction permettant la sauvegarde ou la 
copie d'écran, avec la combinaison 
Commande, Majuscules et Blocage 
Majuscules, nous pouvons ouvrir 
FKEY. Comme nous pouvons le 
constater, seule les clés 3 et 4 sont 


programmées : fermons donc FKEY 
puis effaçons-le entièrement. 
INIT 


Si l'on n'a pas le clavier numérique, on 
que éliminer le N°1, qui gère ce clavier. 

i l'utilisation de la disquette sur laquelle 
on installe le système réduit ne requiert 
pas de clavier, on peut aussi éliminer le 
N°0 (ne le faisons pas ici). Le N°13 peut 
aussi être détruit. 


PACK 

Si l'on ne se sert pas de la calculatrice, 
on peut éliminer les packs 4 et 5, le 
premier servant aux calculs en virgule 
flottante et le second aux fonctions 
transcendentales. Attention là aussi : de 
nombreux programmes utilisent ces deux 
TESSOUrCES. 


PAT# 

On peut éliminer les formes contenues 
dans PAT# si l'on n'a pas gardé le 
tableau de bord et si l'on ne compte pas 
utiliser MacPaint. 


STR et STR# 

Les fichier des “strings” peuvent être 
totalement éliminés; ils comportent entre 
autres les noms de fichiers des icônes de 
l'imprimante (8192) et du calepin (15871 
et 15872). 


WDEF 

Nous pouvons détruire le N°1, qui sert à 
définir des fenêtres à bord arrondi, telle 
que celle de la calculatrice. 


Avec toutes ces modifications, on aboutit 
à un système ne faisant plus que 32143 
octets, donc environ 40% plus petit. 


Plus dangereux encore ! 


Enfin, on peut détruire les ressources qui 
peamettent de reconstituer le bureau avec 
commande et option. Cela permet 
d'éliminer BNDL, FREF et MACS. Si le 
bureau doit être reconsmut, le processus 
sera très long et les icônes système 
n'apparaîtront pas. 

Dans la foulée, nous pouvons aussi 
détruire dans DITL les messages 6047, 
qui interviennent lors de problèmes de 
lecture des disques. 


Nous sommes à présent descendus à 
29019 octets. Nous joignons sur la 
disquette d'accompagnement le fichier 
MiniSYS correpondant. Il suffit de le 
copier sur une disquette et de le 
rebaptiser “System” pour qu'il 
fonctionne de façon tout à fait (?) 
normale. 


En fait, on peut aller encore plus loin, et 
descendre aux environs de 20Ko ! 
Mais, avec le MiniFinder à la place du 
Finder, on se trouve déjà à un total 
raisonnable (moins de 35Ko) par rapport 
aux quelques 175K0o habituels. 
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Mini-Éditeur Basic 


Guillaume Pot 


‘est en utilisant l'as- 

sembleur Big Mac que 

j'ai pensé à réaliser ce 

programme. Il existe, 
en effet, dans cet assembleur de 
nombreuses fonctions d'édition 
dont on ne dispose pas lorsqu'on 
programme en Basic ; en parti- 
culier, les fonctions FIND (trou- 
ver une chaîne) et CHANGE 
(changer une chaîne). Ce pro- 
gramme a pour but d'assurer ces 
deux fonctions par le biais de 
l'ampersand. 


Définition 
préliminaire 


Pour bien comprendre les possi- 
bilités, mais aussi les limites, de 
cet éditeur il est nécessaire de 
définir, de façon très précise, ce 
qu'on appelle ‘chaîne’. 
Désormais, une chaîne sera une 
séquence de caractères contenue 
dans une ligne de programme et 
ne comportant pas d'espace, de 
virgule, de guillemets. Une 
chaîne ne peut représenter une 
instruction, un numéro de ligne... 
En fait, une chaîne sera une suite 
de caractères non codée par 
l'interpréteur Basic (pas de 
token). On pourra donc chercher, 
trouver et remplacer un nom de 
variable, un mot de commentaire, 
mais aussi un nombie référençant 
un numéro de ligne (après 
THEN, GOTO ou GOSUB). 


Utilisation du 
mini-éditeur 


Le lancement du programme 
entraîne l'édition d'une page aide 
mémoire ; celle-ci contient tous 
les renseignements nécessaires. 
Cette page est accessible à tout 
moment par la commande & H 
(Help). Il suffit alors de charger 
le programme Basic sur lequel on 
effectuera des modifications. 
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Les deux fonctions de l'éditeur 
sont : 


° l'édition de toutes les occu- 
rences d'une chaîne dans le 
programme ; 

° la substitution d'une chaîne à 
une autre. 


Comment trouver 
une chaîne ? 


La commande : & "chaîne assure 
l'édition de toutes les lignes du 
programme où la chaîne considé- 
rée apparaît ; si elle figure plu- 
sieurs fois dans une même ligne, 
la ligne sera éditée autant de fois 
(mais imprimée une seule fois). 
La barre d'espacement perinet 
une édition pas à pas. Si la chaîne 
est une référence à une ligne, 
toutes les lignes contenant cette 
référence seront éditées, la ligne 
elle-même sera éditée si elle la 
contient. 


Comment changer 
une chaîne ? 


La commande & "chaînel"chaî- 
ne2 permet de remplacer, à 
volonté, la chaînel par la chaî- 
ne2. L'éditeur affiche la ligne du 
programme qui contient la pre- 
mière occurence, puis attend une 
touche. Plusieurs réponses sont 
possibles : 


* O comme Oui change la chaî- 
ne, édite la nouvelle ligne, puis 
celle contenant l'occurence 
suivante ; 

+ RETURN entraîne le change- 
ment automatique de l'ancienne 
chaîne par la nouvelle dans tout 
le programme. L'édition des 
nouvelles lignes est instan- 
tanée ; 

+ toute autre touche, à l'excep- 
tion de CTRL-C (break), con- 
serve la chaîne et entraîne 
l'édition de la ligne contenant 
l'occurence suivante. 


Quelques conseils 


Comme avec tout autre éditeur, il 
faut faire preuve d'une grande 
prudence dans l'utilisation de la 
fonction & “chaînel"chaîne2. Il 
est indispensable de garder une 
copie du programme original 
avant de procéder à un change- 
ment généralisé. Ne vous hâtez 
pas de presser la touche RE- 
TURN lors d'une substitution de 
chaîne ; il pourrait arriver que la 
chaîne à remplacer soit une sous- 
chaîne d'une autre. Par exemple : 
xx dans xx% ou encore 110 dans 
1100. Pour changer le nom d'une 
variable (xx%, xx$, xx), il faut, 
bien sûr, inclure la spécificité 
dans les chaines 1 et 2. Par 
exemple, pour modifier le nom 
d'une variable dimensionnée, il 
est préférable de faire & 
"xx$('yy$( plutêt que & “xx"yy. 


Analyse 
du programme 


La seule difficulté technique du 
programme réside dans l'utilisa- 
tion d'une partie de la boucle 
principale utilisée par l'interpré- 
teur Basic (CMDLOOP). Cette 
partie ($D46C - $DS52B) a été 
reprise pour éviter la sortie 
forcée, mais inopportune, dans 
l'interpréteur. Le programme 
procède de la facon suivante : 


1) il stocke la nouvelle ligne, 
déjà codée, dans le buffer 
d'entrée ($200) et sa longueur 
en $0F ; 

2) il a recours à la partie utilisée 
par l'interpréteur pour insérer 
la nouvelle ligne dans le 
programme Basic ; 

3) puis, retour au programme 
pour l'édition de la nouvelle 


ligne. 
G 
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Source 


MINIEDIT.S 


Assembleur Big Mac 


Œ OU & Œ Ni ha 


32 


56 


that Attéé tt tt mt dt À 4 à À À à 
* chercher/changer une # 
* chaine dans un programme * 


* Basic. guillaume pot * 
LÉTTLLÉLÉELES ST LILEL SIL SIESLSELES): 


LENGPT = °0F 
WNDTOP = S22 
CH = $24 
CV _ $25 
INVFLG = $32 
LINNUM = $50 
INDEX = $5E 
INDIX = $60 
TXTTAB = $67 
LOMEM = $69 
FREBEG = $6D 
FRETOP = ser 
HIMEM = 573 
HIGBDS = $94 
HIGHTR = $96 
LOWTR = $9B 
PRGEND = SAF 
CHRGET = $B1 
CHRGOT SB7 
TXTPTR _ $B8 
LINPT = $F8 
ALLFLG = $F9 
LENGI = $FA 
LENG2 = $FB 
STRBEG = $SFC 
STREND = $FD 
LINE _ $FE 
IN = $200 
#ARMDOS = $3D0 
INTDOS = $3EA 
AMPERV = $3F6 
ORG $8E00 
LDA #<BEGIN 
STA  AMPERV 
STA HIMEM 
LDA  #>BEGIN 
STA AMPERV+1 
STA HIMEM+1 
BNE HELP 
** saisie commandes Éd 
BEGIN LDA #0 
LDX 43 
INIPRM STA SLOT,X 
STA ALLFLG,X 
DEX 
BPL INIPRM 
STX LAST 
STX LAST+1 
STX STRBEG 
JSR CHRGOT 


85 


95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
172 
HE3 
114 
115 
116 
TE 
118 
119 
120 
121 
222 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
125 
136 
437 


BEGEND 


GETCMD 


FNDCMD 
ENDI 


TESTH 


HELP 


NOTH 


GETSTR 
GETSTRI 


STRIEND 


XSTREND 


GETSTR2 


STR2END 


TSTCHR 


ENBCMD 
EXEC 


CHARGET 
BEGEND 

#3 
CMDCHR, X 
TESTH 


ENDI 
SYNTAX 


#4 ;= ‘H" 
NOTH 

HOME 

#0 

PRINT 

BASIC2 


43 = tn? 
GETSTR 


CHRGET 
FRMNUM 
GETADR 


LINNUM 
SLOT, X 
LINNUM+1 
SLOT+1,X 
CHRGOT 
EXEC 
#'," 
GETCMD 
SYNTAX 


#0 
TSTCHR 
STRIEND 
STRNGI1,X 


GETSTRI 


LENGI 
#0 
STRNG1, X 
#16 
SIRERR 
CHRGOT 
EXEC 
a”, 
GETCMD 
LENG2 
EXEC 


TSTCHR 
STR2END 
STRNG2, X 


GETSTR2 


LENG2 

#0 
STRNG2, X 
XSTREND 


CHRGET 
RETURN 
3",'! 





CMP 
RETURN RTS 
STRERR JMP 


** execute 


EXEC 


EXECI 


NXTLIN 


NXTADR 


EXEND 


EXIT 


XFIRST 


XLAST 


XLENGI 


LISTING 


SRCH 


*** chercher 


SEARCH 


NXTCHR 


RETURN 
#"/" 


TOOZNG 


commandes ** 


LENG2 
EXECI1 

#0 

SLOT 
PRINTER 
TITLE 

#1 
TXTTAB 
TXTTAB+1 
NXTADR 


#0 
(LINE), Y 


(LINE) ,Y 
LINE 

LINE +1 
{LINE),Y 
XFIRST 


LENGI1 

EXIT 

MARGE 

#5 ;= END 
PRINT 

SETVID 

INIT 

UP 

WARMDOS 


GETNUM 
FIRST+1 
NXTLIN 
XLAST 
FIRST 
NXTLIN 
LAST+1 
XLENGI 
EXEND 
LAST 
LINNUM 
EXEND 
LENGI 
LISTING 
STRBEG 
SEARCH 


LIST 
KEYTST 
LENG1 
NXTLIN 
SLOT 
NXTLIN 
CROUT 


une chaine #*** 


#0 
STRBEG 
STRBEG 
{LINE),Y 
SEARCH 
NXTLIN 
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210 CMP 
211 BNE 
212 INY 
213 INX 
214 CPX 
215 BNE 
216 STY 
217 LDA 
218 BEQ 
219 


STRNG1,X 
SEARCH 


LENG1 
NXTCHR 
STREND 
LENG2 
LISTING 


220 *** changer une chaine #*** 


ALLFLG 
CHANGE 
LIST 
ROKEY 
ro" 
CHANGE 
#$33 sæ °C 
EXIT 
#58D 
SRCH 
ALLFLG 
NEWLIN 
CMDLOOP 
STRBEG 
LENG2 
STREND 
LIST 
KEYTST 
STREND 


STRBEG 
SRCH 


245 *insere une nouvelle ligne* 


222 LDA 
223 BNE 
224 JSR 
225 JSR 
226 CMP 
227 BEQ 
228 CMP 
229 BEO 
230 CMP 
231 BNE 
232 STA 
233 CHANGE JSR 
234 BNE 
235 DONE LDA 
236 AapcC 
237: STAÀ 
238 JSR 
239 JSR 
240 LDY 
241 DEY 
242 STY 
243 BNE 
243 

246 

247 CMDLOOP LDX 
248 STX 
249 LDX 
250 STX 
251 JSR 
252 JSR 
253 BCC 
254 LDY 
255 LDA 
256 STÀ 
257 IDA 
258 STA 
259 LDA 
260 STA 
261 LDA 
262 DEY 
263 SBC 
264 CLC 
265 ADC 


Éditeur Plein 


PRGEND 
LOMEM 
PRGEND +1 
LOMEM+1 
GETNUM 
FNDLI ;= $D46C 
NOTFND 
#501 
{LOWTR), Y 
INDEX +1 
LOMEM 
INDEX 
LOWTR+1 
INDIX+1 
LOWTR 


(LOWTR),Y 


LOMEM 


Le Pacha 
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266 
267 
268 
269 
270 
#71 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
303 
310 
311 
312 
314 
314 
325 
316 
317 
318 
319 
320 
321 


HD48F 


HD4A7 


NOTFND 


HD4D1 


MOVLIN 


LOMEM 
INDIX 
LOMEM+1 
#SFF 
LOMEM+1 
LOWTR+1 


LONTR 
LOMEM 


HD49F 


INDIX+1 


INDEX 
HD4A7 
INDEX+1 


{INDEX) , Y 
{INDIX),Y 


HD447 
INDEX +1 
INDEX +1 


HD4A7 


HIMEM := $D4B85 
HIMEM+1 
FRETOP 
FRETOP+1 
LOMEM 
HIGHATR 
LENGPT 
HIGHDS 
LOMEM+1 
HIGHTR+1 
RD4D1 


HIGHDS+1 
BLTU 
LINNUM 
LINNUM+1 
IN-2 
IN-1 
FREBEG 
FREBEG+1 
LOMEM 
LOMEM+1 
LENGPT 
IN-5,Y ; $D4EA 
{LOWTR }, Y 
MOVLIN 

CLEAR 


Recherchez toute chaîne de caractères. 


322 LDA 
323 LDY 
324 STA 
325 STY 
326 CIE 
327 HD4FE LDY 
328 LDA 
329 BNE 
330 LDA 
331 STA 
332 LDA 
333 STA 
334 UMP 
3395 

336 HD50F LDY 
337 HOS1I INY 
338 LDA 
339 BNE 
348 INY 
341 TYA 
342 ADC 
333 TAX 
344 LBY 
345 STA 
346 LDA 
347 ADC 
348 INY 
349 STA 
350 STX 
351 STA 
352 BCC 
453 

354 ** routine 
355 

356 NENWLIN ZDA 
357 STA 
358 LDY 
359 NXTCAR INY 
360 CPY 
361 BNE 
362 LDY 
363 NEWSTR LDA 
364 JSR 
365 INY 
366 CPY 
367 BNE 
368 LDY 
369 GETCAR LDA 
370 JSR 
374 CMP 
372 BNE 
373 CPX 
374 BCS 
375 TXA 
376 ABC 
377 STA 


Choisissez vous-même les codes de contrôle d'EPE. 
Modifiez EPE : je fichier source est sur la disquette. 


150,00 F TTC franco (bon de commande page 74). 


TXTTAB 
TXTTAB+1 
INDEX 
INDEX +1 


#501 
(INDEX), Y 
HD50F 
LOMEM 
PRGEND 
LOMEM+1 
PRGEND+1i 
DONE 


#504 


fINDEX}) ,Y 
HDS 11 


INDEX 


#$00 
{INDEX },Y 
INDEX+1 
4500 


(INDEX), Y 
INDEX 
INDEX +1 
HD4FE 


new line ** 


#0 
LENGPT 
#3 


STRBEG 
GÉTCAR 
#0 
STRNG2, Y 
INBUF 


LENG2 
NEWSTR 
STREND 
{LINE}, Y 
INBUF 
#0 
NXTCAR 
#$5E 
LINERR 


45 
LENGPT 


Écran = D = Apple ]{ +, lle, lc 


Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein écran sans relire les lignes. 











378 RTS 450 BPL NXTCRC S22 LDA  LENG1 


379 451 EMI NXTCMD 523 BEQ RETI 

380 INBUF LDX LENGPT 452 524 JSR LIGNE 

381 STA IN,X 453 CMDOK LDY #0 525 JSR MARGE 

382 INC  LENGPT 454 CMDLEN  INY 526 LDA #1 ;= FIND 

383 RTS 455 LDA {TXTPTR),Y 527 LDX LENG2 

384 456 BPL CMDLEN 528 BEO TITLE1 

385 LINERR  JMP TOOLNG 457 INY 529 LDA #2 ;:= OLD 

386 458 CLC 530 JSR PRINT 

JET *** routine list #2# 459 TYA 531 JSR MARGE 

388 460 ADC CH 532 LDA #3 ;:= NEW 

389 GETNUM  LDY #2 461 CMP  #$26 533 JSR PRINT 

390 LDA (LINE),Y 362 BCC CMDPRT 534 LDA #4 := STR2 

391 TAX 463 JSR MARGE 535 TITLEI JSR PRINT 

392 STX  LINNUM 464 536 JSR LIGNE 

393 INY 465 CMDPRT  LDA #$A0 537 LDX CV 

394 STY LINPT 466 JSR COUT 538 INX 

395 LDA  {LINE),Y 467 CMDPRTI JSR CHRGET 539 STX  WNDTOP 

396 STA  LINNUM+1 468 TAX 540 JMP  CROUT 

397 RTS 469 BMI CMDPRT2 541 

393 470 ORA #$80 542 LIGNE JSR CROUT 

399 LIST JSR GETNUM 471 JSR COUT 543 LDA SLOT 

400 INY 472 BNE  CHDPRTI 544 BNE RET2 

401 PHA 473 CMDPRT2 JSR COUT 545 LDX #$526 

402 POSIT CMP BASH, Y 474 LDA #$520 546 LDA #"-" 

403 BCC POSITI 475 BNE  INSPRT 547 LIGNEI JSR COUT 

404 BNE NUMPRT 476 548 DEX 

405 TXA 477 OUTCHR  ORA #$80 549 BNE  LIGNEI 

406 CMP BASL,Y 478 JSR COUT 550 RET2 RTS 

407 BCS  NUMPRT 479 EDA CH 551 

408 POSITI LDA #$A0 480 CMP #$26 552 SLTERR  JMP  ILLEG 

409 JSR COUT 481 BCS MARGE 553 

410 LDA LINNUM+1 482 RTS 554 PRINTER LDA SLOT+1 

411 DEY 483 555 BNE SLTERR 

412 BPL POSIT 484 ** routines diverses Lie 556 LDA SLOT 

413 485 557 BEQ RET2 

414 NUMPRT  PLA 486 KEYTST LDA KEY 558 CMP #9 

815 JSR LINPRT 487 BPL CONT 539 BCS SLTERR 

416 LOA #$A0 488 CMP #$83 := °C 560 JSR OUTPORT 

417 JSR COUT 488 BNE TSTSPC 561 JSR  INTDOS 

418 490 BREAK BIT STROBE 562 LDA #6 := SETUP 

419 LDY 4#5$504 491 UMP EXIT 563 PRINT ASL 

420 LDA (LINE),Y 492 564 TAY 

421 BMI DECODE 493 TSTSPC CMP #$A0 565 LDA STRAD, Y 

422 LDA #$A0 494 BNE NOTSPC 566 STA LINE 

423 INSPRT  LDY LINPT 495 BIT STROBE 587 INY 

424 CHRPRT  UJSR OUTCHR 496 PAUSE LDA REY 568 LDA STRAD,Y 

425 INY 497 BPL PAUSE 569 STA LINE+#1 

426 CPY STRBEG 493 CMP  #$83 = 2 570 LOY #0 

427 BCC GETCHR 498 BEQ BREAK 571 PRINTI  LDA (LINE),Y 

428 BNE TSTEND 500 CMP  #$A0 572 BEQ RET2 

429 JSR SETINV 501 BEQ CONT 573 ORA #$80 

430 TSTEND  CPY STREND 502 NOTSPC BIT STROBE 574 JSR COUT 

431 BNE GETCHR 503 CONT CLC 575 INY 

432 JSR SETNRM 504 RTS 576 BNE PRINTI 

433 505 577 INC LINE#1 

434 GETCHR  LDA (LINE),Y 506 MARGE JSR CROUT 578 BNE PRINTI 

435 BNE DECODE 507 IDA INVFLG 579 

436 JMP  CROUT 508 PHA 580 

437 509 BMI MARGE! 581 STRAD DA AIDE 

438 DECODE BPL CHRPRT 510 JSR  SETNRM 582 DA  TITREI 

439 STY LINPT 511 MARGEI  LDX #7 583 DA  TITREZ 

440 AND #$7F 512 JSR PRBL2 584 DA  TITRE3 

441 TAX 513 PLA 585 DA  STRNG2 

442 LDA  #>CMDLST 514 EMI RETI 586 DA FIN 

443 STA TXTPTR+1 515 SETINV  IDA #$3F 587 DA SETUP 

444 LDA  #<CMDLST 516 BNE SETFLG 588 

445 STA TXTPTR 517 SETNRM  LDA #$FF 589 AIDE HEX 8D 

446 NXTCMD  DEX APERSSTERT GTA FAMELE Note : afin de faciliter la lecture des 

rs es es : = GET 1e instructions ASC, les espaces ont été 
ET à 

449 TAY 521 TITLE  JSR HOME remplacés par des ‘puces’ (°). 
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590 ASC éthéhéthhéték 610 ASC 
LÉLLLLLELLLLZZ) 611 ASC 
LELLELELEILLILILRS 
591 HEX  8D 612 HEX 
592 ASC "*#*e++TROUVER-0O 613 ASC 
U-CHANGER -UNE° 
CHAINEsoro##" 
593 HEX  8D 614 HEX 
S94 ASC "**-°°DANS-UN 615 ASC 
°PROGRAMME-BAS 
TC ssssssss ++" 
595 HEX 8D 616 HEX 
596 ASC ‘"**--PAR-°GUIL 6127 ASC 
LAUME + e ®POTeee 
css sts" 
597 HEX  8D 618 HEX 
598 ASC Mettttitttitas 619 ASC 
thhétitthétitis 
LEE SLEZL, 
S99 HEX 8D8D8D 620 HEX 
600 ASC "<<<e+LES°CLES 621 
°DE°L -AMPERSAN 622 FIN ASC 
Dee>>>" 623 HEX 
601 HEX  8D8D 624 
602 ASC "Fé#e=ePREMIERE 625 SETUP HEX 
+LIGNE-ss.e0S 626 ASC 
#°=°SLOT" 627 HEX 
603 HEX 8D 628 
604 ASC "L#-=-DERNIERE 629 CMDCHR ASC 
+LIGNE-c..00e.H 630 
°e—°AIDE" 631 SLOT HEX 
605 HEX 8D8DA2 632 FIRST HEX 
606 633 LAST HEX 
607 ASC %,,." 634 
608 ASC "es-ee=eTROUVE 635 BASL DFB 
ReUiNE ° CHAINE" 
609 BEX  8DA2 636 8ASH DFB 


Transformez votre 
Apple //c en Minitel 
graphique et couleur 
avec sauvegarde des 
informations sur im- 
primante ou sur dis- 
quettes. 


IME! 


Minitel sur 


Appiei 


e Existe aussi en version texte (sans gra- 
phique) 


{nécessite un modem V23 ou un adaptateur LINK //c entre le Minitel et l'Apple //C. 


XL/Serve et Mac Serve 


Les premiers logiciels de réseaux pour 
Appletalk permettant le partage d’impri- 
mantes et de disques durs. 


Fe — 
Peur Macintosh 512K.Macintosh XE Macintosh Plus Lisa. 
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TS das >1000,>10000 
7+=°+CHANGER-CRI 637 TITRE3 ASC "NOUVELLE-CHA 
E*CHAINE" INE:°-" 
8D8D 638 HEX 00 
"VALEURS-PAR°D 639 TITRE2 ASC "ANCIENNE -”" 
EFAUT -:-&-50,F 640 TITRE ASC "CHAINE :*+" 
0,L65535" 641 STRNGI HEX 00 
8D8D8D 642 
n<x<e:LESeAUTR 643 STRNG2 _ STRNG1+16 
ESeCLESv°e..>> 644 
a 645 
8D8D 646 KEY = $co00 
NONE ++ = CHAN 647 STROBE = $Co10 
GE UNE ° “+ °ESPA 648 
CE®e=ePAUSE" 649 CMDLST = $DOCF 
8D 650 BLTU = $D393 
"RETURN -=-CHAN 651 FNDLIN = $D61A 
GE°TOUT®°°°CTR 652 CLEAR = $D665 
L-C-=-STOPee" 653 
00 654 FRMNUM = SDD67 

655 SYNTAX = $SDEC9 

"END-OF-PASS" 656 BASIC2 = $SE003 

8D00 657 ILLEG = $E199 
658 TOCOLNG = SE5B2 

89 659 GETADR = $E752 
"BON" 660 LINPRT = $SED24 
00 661 

662 PRBL2 = SF94A 

*SFL"H" 663 INIT = $SFB2F 

664 UP = SFCIA 

0000 665 HOME = #FC58 
0000 666 RDKEY - SFDOC 
FFFF 667 CROUT = S$SFD8E 

668 COUT = $FSED 
1,10,100,1000, 669 SETVID = SFE23 

10000 670 OUTPORT = $FE95 


>1,>10,>100, 


COPY II MAC" 4.5 


e DUPLIQUE LES LOGICIELS PROTÉGÉS * 

e CONTIENT DES UTILITAIRES PUISSANTS 
- Formatage et vérification de disque 
- Editeur de secteurs et fichiers 
- Réparation de disques endommagés 


- Installation de programmes protégés sur disque 


dur 


e Configuration : Macintosh 128 K ou 512 K 


Versions aussi disponibles pour IBM, Apple // et 
Commodore 64 ! 


Ces produits vous sent vendus peur veus permettre de réaliser des copies de sauvegarde 


uniquement. 


143, Grande Rue 
59100 ROUBAIX 


Téi. 20.73.93.73 


COmputiC 








_ PRODUITS 








IMITEL/ /- V 1.1 (version sans graphique) 
(Apple//c} 

IMITEL// - V 2.0 (version avec graphique) 
(Apple//c) 

Copyll Mac V45 


Copy Il Plus V 5.5 (Apple//) 

Logiciel de réseau : XL/SERVE 
Logiciel de réseau : MAC SERVE 
(disponible le 20/02/86) 

Link//c (interface minitel/Apple//c) 
prévu 02/86 





PRIX TTC 


495,00 
895,00 
995,00 
595,00 
2595,00 
3795,00 


495,00 





Ces logiciels sent aussi disponibles chez votre Cencessionnaire Agréé Apple. 
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Récapitulation 
MINIEDIT 


Après la saisie de ce source sous moniteur, 
vous le sauvegarderer par : 


BSAVE MINIEDIT, AS8EO00, L$647 


8E00- A9 10 8D F6 03 85 73 A9 
8E08- 8E 8D F7 03 85 74 DO 32 
8E10- A9 00 A2 03 9D 13 94 95 
8E18- F9 CA 10 F8 8E 17 94 8E 
8E20- 18 94 86 FC 20 B7 00 DO 
8E28- 08 4C BD 8E 20 BI 00 FO 
8E30- F8 A2 04 DD 0E 94 FO 06 
8E38- CA 10 F8 4C C9 DE EO 04 
8E40- DO OB 20 58 FC A9 00 20 
8E48- C9 91 4C 03 EO EO 03 FO 
8ES0- 24 8A 48 20 B1 00 20 67 
8ES58- DD 20 52 E7 68 OA AA AS 
8E60- 50 9D 13 94 A5 51 9D 14 
8£68- 94 20 B7 00 FO 4F C9 2C 
8E70- FO BA 4C C9 DE A2 00 20 
8E78- AE 8E FO 06 9D 46 94 E8 
8E80- 00 F5 86 FA A9 00 9D 46 
8E88- 94 EO 10 BO 2D 20 B7 00 
8E90- FO 2B C9 2C FO 96 A6 FB 
8E98- DO 23 20 AE 8E FO 06 9D 
8EA0- 56 94 E8 DO FS 86 FB A9 
8EA8- 00 9D 56 94 FO DB 20 B1 
8EBO- 00 FO 06 C9 2C FO 02 C9 
8EB8- 2F 60 4C B2 ES AS FB FO 
8ECO- 05 A9 00 8D 13 94 20 B3 
8EC8- 91 20 6D 91 AO 01 A6 67 
8ED0- A5 68 DO 08 AO 00 B1 FE 
8ED8- AA C8 Bl FE 86 FE 85 FF 
8EEO- Bi FE DO 18 A5. FA FO 08 
8EE8- 20 51 91 A9 05 20 C9 91 
8EFO- 20 93 FE 20 2F FB 20 IA 
8EF8- FC 4C DO 03 20 7E 90 CD 
8F00- 16 94 90 DO DO 0S EC 15 
8F08- 94 90 C9 CD 18 94 90 09 
8F10- DO D2 AD 17 94 C5 50 90 
8F18- CB A5 FA FO 04 84 FC DO 
8F20- 12 20 8D 90 20 29 91 A5 
8F28- FA FO A9 AD 13 94 DO A4 
8F30- 20 8E FD A2 00 E6 FC A4 
8F38- FC B1 FE 30 F6 F0 95 DD 
8F40- 46 94 DO EF C8 E8 E4 FA 
8r48- DO EF 84 FD A5 FBFO D1 
8F50- AS F9 DO 14 20 8D 90 20 
8F58- OC FD C9 CF FO OA C9 83 
8F60- FO 8E C9 8D DO CA 85 F9 
8F68- 20 46 90 DO 13 A5 FC 65 
8F70- FB 85 FD 20 8D 90 20 29 
8F78- 91 A4 FD 88 84 FC DO BO 
8F80- A6 AF 86 69 A6 B0O 86 6A 
8F88- 20 7E 90 20 1A D6 90 44 
8F90- AO O1 B1l 9B 85 SF AS 69 
6F98- 85 SE AS 9C 85 61 AS 9B 
8FAO- 88 F1 9B 18 65 69 85 69 
8FA8- 85 60 AS 6A 69 FF 8S 6À 
8FBO- ES 9C AA 38 A5 9B ES 69 
8FB8- A8 BO 03 E8 C6 61 18 65 
8FG0- SE 90 03 C6 5F 18 B1 SE 
8FC8- 91 60 C8 DO F9 E6 SF E6 
8FDO- 61 CA DO F2 AS 73 A4 74 
8FD8- 85 6F 84 70 A5 69 85 96 
8FEO- 65 OF 85 94 A4 6A 84 97 
8FE8- 90 01 C8 84 95 20 93 D3 


BERO 
8FF8- 
9000- 
9008- 
9010- 
9018- 
9020- 
9028 
9030- 
9038- 
9040- 
9048- 
9050- 
9058- 
9060- 
9068- 
9070- 
9078- 
9080- 
9088- 
9090- 
9098- 
90A0- 
90A8- 
90B0- 
90B8- 
90C0- 
90C8- 
90D0- 
90D8- 
90E0- 
90E8- 
90FO0- 
90F8- 
9100- 
9108- 
9110= 
9118- 
9120- 
9128- 
9130- 
9138- 
9140- 
9148- 
9150- 
9158= 
9160- 
9168- 
9170- 
9178- 
9180- 
9188- 
9190- 
9198 
91A0- 
91A8- 
91B0- 
91B8- 
91C0- 
91C8- 
91D0- 
91D8- 
91E0- 
91E8- 
92E0- 
918 
9200- 
9208- 
9210- 
9218- 


BRÈRESNSSTen 


FE 


BEÈSSE 


9220- 

9228- 

9230> 

9238- 

9240- 

9248- 

9250 

9258- 

9260- 

9268- 
9270- 
9278- 
9280- 
9288- 
9290- 
9298- 
92A0- 
92A8- 
92B0- 
92B8- 
92C0- 
92C8- 
92D0- 
92D8- 
92E0- 
92E8- 
92F0- 
92F8- 
9300- 
9308- 
9310 
9318- 
9320- 
9328- 
9330- 
9338- 
9340- 
9348- 
9350 
9358- 
9360- 
9368- 
9370- 
9378- 
9380- 
9388- 
9390- 
9398- 
93A0- 
93A8- 
93B0- 
93B8- 
93C0- 
99C8- 
93D0- 
93D8- 
93E0- 

93E8- 
93F0- 
93F8- 
9400- 
9408- 
9410- 
9418- 
9420- 

9428- 
9430- 
9438- 
9440- 


D4 
CF 
GS 
C8 
A0 
AO 
CE 
CD 
C3 
A0 


ABSARESESEsssss 


8D 
CS 
C9 
A0 
D3 
BD 
D2 
A0 
A0 
8D 
A0 
DS 
A0 
A2 
A0 
CS 
C8 
C1 
C1 
D4 
AC 
B3 
A0 
D4 
D3 
BE 
AO 
C7 
A0 
A0 
CS 
A0 
CS 
AO 
A0 
00 
DO 
BO 
00 
64 
CE 
A0 
AO 
GE 
CS 


CD 


C6 


BRÈEESSSSS 


» » Q 


Q 
© 


DS 
C3 
DS 
CE 
8D 
C1 
D2 
AO 
AO 
8D 
A0 
D5 
D4 
A0 


RÈRES 


8D 
CC 
A0 
DO 
AO 
AO 
C5 
GS 
D3 
D4 
CS 
GE 
A0 
A0 
AE 
BD 
D2 
C1 
AE 
C3 
DS 
CE 
D5 
C4 
AO 
AC 
8D 
C5 
D3 
AO 
CF 
AO 
DS 
D3 
A0 
CS 
C3 
CF 
D4 

D3 
C4 
D3 
33 
00 
00 
D6 
C1 

CE 
C3 
00 
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| s)1)x) 
DET)T)R)E)S 


ous connaissez tous le 

jeu du “Master Mind", 

mais avez-vous déjà 

joué aux "Six lettres” ? 
Ce divertissement, connu depuis 
une bonne cinquantaine d'années, 
utilise des règles et une présen- 
tation fort semblables. 


Le jeu 

I1 consiste à retrouver des mots 
de six lettres présents dans les 
dictionnaires courants (nous ne 
ferons pas de publicité). Le 
programme affiche, pour chaque 
proposition, le nombre de lettres 
correctement placées. 


Le détail des règles est affiché en 
début de programme. Il est éga- 
lement possible de modifier le 
fichier contenant le dictionnaire 
(un millier de mots). D'autre part, 
le programme gère un index afm 
que le joueur ait à trouver tous les 
mot du fichier avant de retomber 
sur un mot déjà tiré. 


Le programme 
Les fichiers utilisés sont : 


e SIX LETTRES 
menu général; 

« SIX LETTRES.TEXT 
fichier renfermant les mots 
à trouver; 

+ SIX LETTRES.JEU 
le jeu proprement dit; 

+ SIX LETTRES.REGLES 
affichage des règles; 

+ _SIX LETTRES.MODIFIER 
modification du fichier 
texte. 


On accède au programme par : 
RUN SIX LETTRES 


La configuration nécessaire com- 
prend un Apple Il+, Ile ou Ilc 
sous DOS 3.3 ou ProDOS. 


Les lecteurs de Pom's qui ne 
disposent pas de la disquette 
d'accompagnement devront créer 
le fichier SIX LETTRES.TEXT, 
sous forme de fichier à accès 
direct de longueur 7, comportant 


Manfred Brede 


en enregistrement 0 le nombre de 
mots (999), en enregistrement 1 
la position de l'index (norma- 
lement 999) suivi de 999 enre- 
gistrements de mots de six lettres 
suivis d'un retour-chariot. 


Sur un Apple Il+ sans ROM 
LC 


Modification à apporter : 


1) SIX LETTRES : 
ajouter "100 CALL 768"; 

2) SIX LETTRES.JEU : 
ajouter “590 CALL 768"; 

3) SIX LETTRES.MODIFIER : 
enlever le RETURN de 1a 
ligne 590, et ajouter "5530 
CALL 768: RETURN"; 

4) pour commencer le jeu : 
BLOAD SHIFT (voir dans 
Porn's N° 14), puis RUN 
SIX LETTRES. 





Fichier ‘SIX LETTRES.TEXT" 


Routine Shift 


( voi r texte) Cette routine, extraite du Pom's n‘I4, 
permet aux lecteurs qui n'ont pas les 
minuscules à l'écran d'utiliser ce 
programme sans problème. Après saisie 
0 999 13 SABBAT sous moniteur, vous la sauvegarderez 
1 664 14 CORAIL Par : 
2 AMICAL = BSAVE SHIFT, A$300, LS4B 
3 PETIOT 992 ELIKIR 0300- A9 OF 85 36 A9 03 85 37 
4 BRAYER 993 DECLIC 0308- A9 00 85 48 4C EA 03 8D 
S ABREGE 994 EXAMEN 0310- 4A 03 08 8A 48 AD 4A 03 
6 PROCES 995 PINSON 0318- A2 07 DD 3A 03 FO OC CA 
7  INFLUX 996 CUISSE 0320- 10 F8 C9 EO 90 08 38 E9 
8 MOITIE 997 ALIENE 0328- 20 DO 03 BD 42 03 8D 4A 
9 BEGAYE 998 SEIGLE 0330- 03 68 AA 28 AD 4A 03 4C 
10 THORAX 999 MANUEL 0338- FO FD CO DC EO FB FC FD 
11 SURVOL 1000 YOUYOU 0340- FE FF Cl C3 A1 CS DS C5 
12 ASSAUT 1001 RECOIN 0348- AD A1 00 





Pom's n° 22 57 


58 


Programme SIX LETTRES 


10 REM le jeu desSIX LETTRES reali 
se par Manfred Brede 


20 REM six lettres menu principal 


version 1, 23.05.85 

110 ES = CHRS (4) + "RUN SIX LETTRE 
IS LL 

120 AS = "----- LAS = AS + AS:AS$ = À 


S$ + AS:AS$ = AS + A$ 
130 POKE 32,0: POKE 33,40: POKE 34,0 
: POKE 35,24: HOME 
200 HTAB 9: INVERSE : PRINT " 
LE T TRE S “%: NORMAL 
210 VTAB 4: HTAB 14: PRINT "menu pri 
ncipal'': PRINT AS 


S, TI À 


220 VTAB 10: HTAB 8: PRINT "J joue 
r aux six lettres" 

230 VTAB 12: HTAB 8: PRINT "R regl 
es du jeu" 

240 VTAB 14: HTAB 8: PRINT "M modi 


fier le fichier" 

250 PRINT : PRINT : HTAB 7: PRINT "E 
se fin" 

260 VTAB 23: PRINT A$;: VTAB 24: HTA 
B l: PRINT “appuyez sur la touch 


e Jy R, M Où ESG: " 

300 GET AS: IF AS = CHR$S (27) THEN 
HOME : END 

310 IF A$ = "J" OR AÀA$ = "j" THEN ES 
= E$ + "GægU"* GOTO 350 

320. TP AS MR OR AS. = "Fr" THEN ES 
= E$ + "REGLES": GOTO 350 

330 IF AS$ = "M" OR AS = "m" THEN ES 
= E$ + "MODIFIER": GOTO 350 


340 GOTO 300 
350 PRINT A$;: VTAB l: HTAB l: PRINT 
: PRINT E$ 


Programme SIX LETTRES. 
REGLES 


100 REM regles du jeu des six lettre 
s version 1, 28.05.85 
110 AS = "----- ":AS = AS + AS:AS = A 
$ + AS:A$S = AS + AS 
120 POKE 32,0: POKE 33,40: POKE 34,0 
: POKE 35,24: HOME 
130 HTAB 9: INVERSE : PRINT " SI X 
L'oE TITRE TS ": NORMAL : VTA 
B 23: PRINT AS$S;: VTAB 24: HTAB 1 
: PRINT "appuyez sur une touche 
140 POKE 34,2: POKE 35,21: HOME 
1000 REM page 1 
1010 T$ = "Regles du jeu des 
ttres'": GOSUB 7000 
1020 PRINT "Le but du jeu est de tro 
uver un mot de": PRINT 


"six le 





1030 PRINT "six lettres 


verbe, 
commun, adjec-": PRINT 
1040 PRINT "tif, participe etc.": PR 
INT : PRINT 
1050 PRINT "Les noms propres, 
ms mis au femi-": PRINT 
1060 PRINT "nin ou au pluriel et les 
verbes conju-": PRINT 
1070 PRINT “ques ne figurent pas da 


nom 


les no 


ns les mots a": PRINT 
1080 PRINT "trouver." 
1090 GOSUB 8000 
1500 REM page 2 
1510 TS = "Mecanisme": GOSUB 7000 


1520 PRINT "Au debut du jeu, 
ramme choisit": PRINT 

1530 PRINT “un mot que le joueur doi 
t trouver. Ce“: PRINT 

1540 PRINT "dernier ecrit un mot de 
six lettres au": PRINT 

1550 PRINT "hasard.": PRINT : PRINT 

1560 PRINT "Le programme affiche le 
nombre de let-''": PRINT 

1570 PRINT "tres qui sont placees a 
la bonne place": PRINT 

1580 PRINT "dans le mot a trouver.", 

1590 GOSUB 8000 

2000 REM page 3 

2010 T$ = "Exemple": GOSUB 7000: PRI 
NT 


le prog 


2020 PRINT “mot a trouver : "“:: INVE 
RSE : PRINT "CIGALE": NORMAL : P 
RINT : PRINT AS 

2030 PRINT “mot enonce os re  FNVE 
RSE : PRINT "EGALES'";: NORMAL : 


HTAB 30: PRINT "reponse : O0" 

2040 PRINT "Aucune lettre n'occupe 1 
a meme place.": PRINT 

2050 PRINT AS 

2060 PRINT "mot enonce 5 MAS INVE 
RSE : PRINT "GITANE";: NORMAL : 
HTAB 30: PRINT "reponse : 3" 

2070 PRINT "Les lettres I, À et E oc 
cupent la meme place que dans 1 
e mot CIGALE."; 

2080 GOSUB 8000 

2500 REM page 4 

2510 T$ = "Nota": GOSUB 7000 

2520 PRINT "La citation de mots par 
le joueur admet": PRINT 

2530 PRINT "toutes les formes qramma 
Œicales :"; PRINT : PRINT 

2540 PRINT "pluriel, feminin, 
conjugue etc.": PRINT 

2550 GOSUB 8000 

3000 REM page 5 

3010 T$ = "Conduite du jeu": GOSUB 7 
000 

3020 PRINT "Ayant obtenu la reponse 
a un mot enonce," 

3030 PRINT ‘le joueur l'exploite en 
eliminant les": PRINT 


verbe 


3040 PRINT "lettres rejetees.": 
Ts: PRINT 


PRIN 
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3050 PRINT "Ainsi un zero permet d'e 
liminer defini-": PRINT 
3060 PRINT "tivement toutes les lett 


res du mot.": PRINT 

3070 GOSUB 8000 

3500 REM page 6 

3510 PRINT : PRINT "Une reponse posi 
tive quide le joueur": PRINT 

3520 PRINT "dans le choix des mots s 
uivants, selon": PRINT 

3530 PRINT "les lettres qu'il suppos 
e bonnes et que": PRINT 

3540 PRINT "d'autres mots lui permet 


tront de con-": PRINT 
3550 PRINT "firmer ou d'exclure.": P 
RINT : PRINT 


3560 PRINT "Conclusion:": PRINT 

3570 PRINT "La performance reside d 
ans l'enonce": PRINT 

3580 PRINT "d'un minimum de mots pou 
r decouvrir le": PRINT 

3590 PRINT "mot a trouver."; 

3600 GOSUB 8000 

4000 REM page 7 

4010 T$ = "Bloc-notes": GOSUB 7000 

4020 PRINT "Pour se rappeler les let 
tres deja trou-": PRINT 

4030 PRINT "vees, le joueur a la pos 
sibilite de les": PRINT 

4040 PRINT "noter en bas de l'ecran 
a gauche.": PRINT : PRINT 

4050 PRINT "L'acces au bloc-notes et 
le retour au": PRINT 

4060 PRINT "jeu se font au moyen de 
la touche Esc." 

4070 GOSUB 8000 

4500 REM page 8 


4510 T$ = "Touches permises": GOSUB 
7000 
4520 PRINT "A ... Z : ecrire une le 


Etre": PRINT 

4530 PRINT "-> : positionner 5 
ur la lettre": PRINT " 
suivante": PRINT 

4540 PRINT "<- : positionner s 
ur la lettre": PRINT " 
precedante": PRINT 

4550 PRINT "“->/ : positionner s 
ur la premiere": PRINT." 

lettre du mot": PRINT 4560 PR 

INT "Return : enoncer un mot": 
PRINT 

4570 GOSUB 8000 

5000 REM page 9 

5010 PRINT 

5020 PRINT "Ctrl-A afficher un a 
nagramme du": PRINT " 
mot a trouver": PRINT 

5030 PRINT "Ctrl-L : afficher une 
lettre du": PRINT " mo 
t a trouver": PRINT 

5040 PRINT "Ctrl-T verification 


des lettres": PRINT " 
du bloc-notes": PRINT 


5050 PRINT "Ctri-F : fin du jeu": 


PRINT 
5060 PRINT "Esc acces au bloc 
-notes;": PRINT " reto 


ur au jeu": PRINT 

5070 PRINT "Del ou . : effacer une 1 
ettre du bloc-": PRINT ‘ 

note"; 

5080 GOSUB 8000 

5500 REM page 10 

5510 TS = "Remarques": GOSUB 7000 

5520 PRINT "Le nombre total des mots 

de six lettres": PRINT 

5530 PRINT "est affiche en haut a ga 
uche de l'ecran.": PRINT 

5540 PRINT "Le nombre en bas à droi 
te de l'ecran": PRINT 

5550 PRINT "vous informe sur le nomb 
re des mots qui": PRINT 

5560 PRINT "restent a trouver." 

6000 REM fin 

6010 VTAB 21: HTAB 1: PRINT "fin 
des regles", 

6020 GOSUB 8000 

6030 POKE 34,0: POKE 35,24: HOME 

6040 PRINT CHRS (4);'"RUN SIX LETTRE 
S" 

7000 REM afficher un titre 

7010 TI$ = LEN (TS):T28 = 1 + (40 - 

T1$) / 2: VTAB 3: HTAB T2%: PRI 

NT T$: HTAB T2%: PRINT LEFTS (A 
S,T1$): PRINT : PRINT : RETURN 

8000 REM appuyer sur une touche 

8010 POKE 49168,0: VTAB 21: HTAB 40: 


GET BS$S: PRINT : HOME : RETURN 
Programme 
SIX LETTRES.MODIFIER 
100 REM modifications au fichier des 
mots version 1, 23.5,85 
120 ES = "SI*X LETTRES.TEXT"aD$S = CH 
RS (4):KS$ = CHRS (7) 


140 ER$ = D$ + "READ" + ES$ + ",R":EW 


$ = DS + "WRITE" + ES + MR 
160 DIM BS(6),SS(6) 
180 ÀA$ = "----- "AS = AS\+ ASSAS = À 


$ + AS:AS = AS + AS 

200 S$(0) = A$:S$(1) = “1 ajouter 
un mot":S$(2) = "2 changer un 
mot":S$(3) = "3 eliminer un mot 
":SS(4) = "4 verifier un mot":S 
$(5) = "5 liste des mots":S$(6) 

= "6 modifier l'index" 

240 PRINT DS; "UNLOCK";ES$: PRINT DS;" 
OPEN"YES-" 1;7"% PRINT ERSA "Os: © 
NPUT MAX#$: PRINT ERS;"l": INPUT 
N& 
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60 





260 OUI$S = K$ + "le mot existe deja 
dans le fichier. ":NO$ = K$ + "1 
e mot n'existe pas dans le fichi 
ers 
300 POKE 32,0: POKE 33,40: POKE 34,0 
: POKE 35,24: GOSUB 5500: HOME 
320 HTAB 9: INVERSE : PRINT " S IX 
LETARES "* NORMAL 
340 VTAB 4: PRINT "modifications"; S 
PC( 11);"<Esc pour finir>"; VTAB 
5: PRINT S$(0): GOSUB 8000 
360 VTAB 23: HTAB 1: PRINT SS$S(0);: P 
OKE 34,9: POKE 35,22 
500 REM menu 
520 S$ = 0: HOME : FOR I = 1 TO 6: H 
TAB 12: PRINT S$(I): PRINT : NEX 
T 


540 VTAB 24: PRINT "appuyez sur la t 
oucheé 1 a 6 où sc ">: CALL = 9 
58 

560 GOSUB 5000: IF A$ = CHRS (27) T 
HEN 800 


Se, IF AS < "I" .OR AS > "6" THEN 560 
600 VTAB 24: HTAB l: PRINT S$( VAL ( 
AS$)):: CALL — 958: HOME 
620 ON VAL (A$) GOSUB 1000,1500,200 
0,2500, 3000, 3500 
640 GOTO 500 
800 REM fin 
820 GOSUB 5600: PRINT D$; "CLOSE";ES$: 
PRINT D$;"LOCK";ES$ 
840 POKE 34,0: POKE 35,24: HOME 
900 PRINT DS$;"RUN SIX LETTRES" 
910 END 
1000 REM ajouter 
1020 5% = S& +1 
1040 VTAB 12: HTAB l: PRINT 
le mot à ajouter :"};: 
0 
1060 GOSUB 7000: REM chercher 
1080 IF Eë% THEN GOSUB 5500: VTAB 15 
: HTAB I: PRINT OUIS$;: GOTO 1140 
1100 MAX$ = MAX$ + l: PRINT EWS;MAX®% 
+ 2: PRINT AS$: PRINT EWS$S;"O": P 
RINT MAX® 
1120 GOSUB 5500: GOSUB 8000: VTAB 15 
: HTAB l: PRINT K$;"le mot a ete 
ajoute. "; 
1140 GOSUB 5000: GOTO 1040 
1500 REM changer 
1520 S8 = S& +1 
1540 VTAB 12: HTAB l: PRINT 
le mot a changer :";: 
0 
1560 GOSUB 7000: REM chercher 
1580 GOSUB 5500: IF E% = 0 THEN VTA 
B 15: HTAB l: PRINT NOS$;: GOTO 1 
740 
1600 RC$ = R$:AC$ = A$ 
1620 VTAB 14: HTAB l: PRINT K$; "chan 
ger contre quel mot :";: GOSUB 
6000 
1640 IF A$ = AC$ THEN 1720 
1660 GOSUB 7000: REM chercher 


'ecrivez 
GOSUB 600 


"ecrivez 
GOSUB 600 


1680 IF E$ THEN GOSUB 5500: VTAB 17 
: HTAB 1l: PRINT OUIS;: GOSUB 500 
O0: GOTO 1620 

1700 PRINT EWS;RC$: PRINT AS: GOSUB 
5500 

1720 VTAB 17: HTAB l: PRINT KS;"le m 
ot a ete change. "; 

1740 GOSUB 5000: GOTO 1540 

2000 REM éliminer 

2020 S$ = Sé + 1 

2040 VTAB 12: HTAB l: IF MAX$ < 2 TH 
EN CALL - 958: PRINT "impossib 
le, il y a moins de 3 mots": PRI 
NT : PRINT "dans le fichier “;: 
GOTO 2160 

2060 PRINT “"ecrivez le mot a elimine 
r :"};: GOSUB 6000: GOSUB 7000: R 
EM chercher 

2080 GOSUB 5500: IF E$ = O0 THEN VTA 
B 15: HTAB l: PRINT NOS$;:: GOSUB 
5000: GOTO 2040 

2100 M$ = MAX$ + 2: PRINT ERS;M$: IN 
PUT AIS: PRINT EWS;M%: PRINT AS: 
PRINT EWS;R$%: PRINT AIS 

2120 MAX$ = MAX$ - l: PRINT EWS;"O": 
PRINT MAX®%: IF N$ > MAX$ THEN N 
& = MAX$: PRINT EWS;"l": PRINT N 


8 
2140 GOSUB 5500: GOSUB 8000: VTAB 15 
: HTAB l: PRINT KS$;"le mot a ete 
elimine. "; 
2160 GOSUB 5000: GOTO 2040 
2500 REM verifier 
2520 S$ = S8 + 1 
2540 VTAB 12: HTAB l: PRINT 
le mot a verifier :";: 
00 
2560 GOSUB 7000: REM chercher 
2580 GOSUB 5500: VTAB 15: HTAB l: IF 
E$ THEN PRINT OUIS$S;: GOTO 2620 
: REM trouve 
2600 PRINT NO$;: REM pas trouve 
2620 GOSUB 5000: GOTO 2540 
3000 REM liste 
3020 S5 = S$ + 1 
3040 M$ = MAX$S + 2:C$ = 3:R$ = 1:P$ 
= (MAX + 1) / 50:P& = (P$ + 9) 
/ 10:P$ = P$ * SO:PF& = MAX / 5 
O:PF$ = PF$ * 50: PRINT 
3060 I$ = l:I = 2 
3080 IF C$ < 33 THEN 3120 
3100 C$ = 3:R$ = R$ + l: 
THEN GOSUB 3320 
3120 PRINT ERS;I: INPUT AIS: VTAB 9 
+ R$: HTAB C$: PRINT AIS:C8 = C®% 
+7: =I+l: IF I < = M$ THE 
N 3080 
C$ = 3: GOSUB 3320: IF I < = M 
& THEN 3120 
3160 GOTO 3060 
3300 REM nouvelle page 
3320 S$ = SÉ + 1 
3340 GOSUB 5600: VTAB 21: HTAB 3: PR 
INT "acces rapide par les touche 


"ecrivez 
GOSUB 60 


IF R$ > 10 


3140 
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s 0 à 9";: VTAB 24: HTAB 20: PRI 

NT RO RTES 2 MI=INERT nr D 20) GROS ° TS — 
ol 

3360 VTAB 24: HTAB 36: GOSUB 5000: IT 


F AS < "O" OR A$ > "9" THEN 3420 

3380 I = VAL (AS) * P$: IF I > PF$ 
THEN I = PF$ 

3400 I = I + 2:I1% = I - 1 

3420 VTAB 24: HTAB 20: CALL - 958: 
HOME : PRINT :R$ = 1 

3440 S$ = S$& - 1: RETURN 

3500 REM l'index 

3520 S% = Sé + 1 

3540 VTAB 12: HTAB l: PRINT “l'index 
actuel MONS + l:: CALL = 958 

3560 VTAB 14: HTAB 1: PRINT "nouvel 
index D es 


3580 NS = "O":I8 = 
+ 1)):I = 1 

3600 GOSUB 5000: IF AS = 
THEN 3900: REM Return 

3620 IF AS < "O0" @R "9" < AS THEN 36 


LEN ( STR$ (MAX® 


CHR$ (13) 


00 

3640 PRINT AS;::NS = NS + AS:I = I + 
1% TE TI. < = T6 IMHEN 3600 

3900 I = VAL (NS): IF I < 2 OR MAX 


+ 1 < I THEN VTAB 16: HTAB ls 
PRINT K$S;:"l'index doit etre entr 


e 2.et ";MAXS + l1;" ";: GOSUB 50 
00: GOTO 3540 

3920 N$ = I - l: PRINT : PRINT EWS;" 
1": PRINT Né: GOSUB 5520: PRINT 


K$: GOTO 3540 

5000 REM appuyer sur une touche 

5020 S& = S& + 1: POKE 49168,0: GET 
AS: IF AS < > CHRS (27) THEN 5 
060: REM ESC 

5040 IF Së > 1 THEN POP :S8& = 
1: GOTO 5040 

5060 S& = S& - 1: RETURN 

5500 REM clavier,ecran 

5520 PRINT DS;"IN#0": PRINT DS$;"PR#0 


Së — 


ll: RETURN: 

5600 VTAB 1l: HTAB 1: PRINT : GOTO 55 
20 

6000 REM entrer un mot (sousprogramm 
€) 

6020 S& = S& + 1 

6040 CALL -— 958:18 = 1:C$ = 1 + PE 


EK (36): REM position horizontal 
e du curseur 

6060 I = 1 

6080 HTAB C$ + I: GOSUB 5000 

6100 IF I% < 7 THEN 6180 

6120 IF A$ = CHR$ (13) THEN 6500 

6140 IF I < 7 THEN 6180 

6160 GOTO 6280 


6180 IF A$ > "Z" THEN À$ = CHR$S ( A 
SC (A$) - 32) 

6200 IF AS$ > "Z" THEN 6080 

6220 IF AS$ < "A" THEN 6280 

6240 BS(I) = AS:I = I + l: IF I < I 
THEN I$% = I: REM lettre 


6260 GOTO 6440 


6280 IF A$ < > CHRS (8) THEN 6340: 
REM <- 

6300 IF I > 1 THEN I = I - 1: GOTO 6 
440 

6320 GOTO 6080 | 

6340 IF AS < >  CHRS (21) THEN 6400 | 
: REM -> | 

6360 IF I < I$ THEN I = I + 1: GOTO 
6440 

6380 GOTO 6080 

6400 IF AÀA$ < > CHRS (9) THEN 6080: 

REM ->} 

6420 GOTO 6060 

6440 PRINT AS$;: GOTO 6080 

6500 AS = BS(1) + BS(2) + B$S(3) + BS$S 
(4) + BS(5) + BS(6): HTAB C$ + 7 
: PRINT :S$% = S$ - l: RETURN 

7000 REM chercher un mot (sousprogra 
mme) 

7020 E% = O:M$ = MAX$ + 2:R% = 2 

7040 PRINT ERS;R%: INPUT AIS: IF AS 
< > AIS THEN R$ = R$ + l: IF R% 

< = M$ THEN 7040 

7060 IF R$& < = M$ THEN E%$ = 1 

7080 GOSUB 5500: RETURN 

8000 REM nombre 

8020 VTAB 7: PRINT “nombre de mots : 

"MAX + 1;" ";: RETURN 

Programme 

SIX LETTRES.JEU 

100 REM six lettres versi 
On49;r- 26.058.605 

110 DEM AS (6),B$(6), TS (6) :I = 0:A$(0 
) = mr S (0) = ETC AO) = 14 

120 CS = remeusse CS =. CS + er 

ESACS = ICS + PM pICS 

130 E$ = "SIX LETTRES TEXT"eDS = CH 
R$ (4):ERS = D$ + "READ" + ES + 
MARMSENWS = ID$ + "WRITE" ES + " 
,R" 

140 PRINT DS; "UNLOCK'";/ES$S: PRINT DS;" 
OPENMMES EM, L7": BRINT ERS:MO": I 
NPUT MAX$%: PRINT ERS;"1": INPUT 
Nè 

150 POKE 32,0: POKE 33,40: POKE 34,0 
: POKE 35,24: HOME : PRINT MAX 
tédée ATAB (6x INVERSE : -PRINT " 

SG} SREX Lubu? TRES ": NORMA 
1, EU POKER 34,2 

500 REM choisir un mot 

510 X$ = RND (1) * N& 

520 PRINT ERS;X$ + 2: INPUT AS(0): P 
RINT ERS;N$% + 2: INPUT AS(1): PR 
INT EWS;N$ + 2: PRINT AS(0): PRI 
NT EWS;X$ + 2: PRINT AS(1) 

530 N$ = N$ -— l: IF N$ < l THEN N$ — 

MAX$ 
540 PRINT EWS;"1l": PRINT N$: PRINT D 


S;"IN#O0": PRINT D$;"PR#0" 
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61 


550 FOR I = 1 TO 6:AS(I) MIDS (AS 
(0) ,I,19 : NEXT 
560 HOME : VTAB 3: FOR I = 1 TO 10: 
PRINT : PRINT C$: NEXT : VTAB 24 
INVERSE : PRINT LEFTS' (CS, 6); 
: NORMAL 
570 A$ = STRS (N$ + l): HTAB 39 - 
LEN (AS): PRINT AS; 
560 FOR I = 1 TO 6:TS(I) =. "ie NEXT 
: REM effacer le bloc-notes 
1000 REM ecriver un mot 


1010 H$ = 0 

1020 VS = 4 

1080: FOR I = 1 TO G:BSAÂT) = ""y NEXT 
:L$ = 1:13 = 1 

TOO! T = 1 


1050 VTAB V%$: HTAB H$ + I: POKE 4916 
8,0: GET AS 

1060 IF I% < 7 THEN 1100 

1070 IF L$ = 1 AND AS = 
HEN 1500: REM Return 

1080 IF I < 7 THEN 1100 

1090 GOTO 1170 


GHR$S (43) T 


1100 IF A$ > “Z" THEN A$ = CHR$ (A 
SC (AS) - 32) 

1110 IF DÉS< MAT IOR A6 > 24 THEN 11 
70 

1120 ON L$ GOTO 1130,1140: REM lettr 
e 

1130 B$(I) = A$: GOTO 1150 

1140 T$(I) = A$ 

1150 I = + l: IF I$ < I THEN I$ = 
va 


1160 GOTO 1450 

1170 IF AS < > CHRS$S (8) THEN 1200: 
REM <- 

1160 IF I > 1 THEN I = I = l: 
450 

1190 GOTO 1050 

1200: IF AS < > CHRS (21) THEN 12530 
s REM =5 

1210 IF T' < I THEN I = + l: 
1450 

1220 GOTO 1050 

1230 IF AS = 
M ->} 

1240 IF AS < > CHRS$S (27) THEN 1290 
: REM ESC 

1250 ON L$ GOTO 1260,1280 

1260 LVS = VS:LHS$S = H$:LIS = IS:LI = 
I:L$ = 2: REM debut bloc-notes 

1270 V$ = 24:H$ = 0:I$ = 7: INVERSE 


GOTO 1 


GOTO 


CHR$ (9) THEN 1040: RE 


: GOTO 1040 
1280 VS = LVS:HS = LH$S:IS = LIS:I = 
LI:L$ = l: NORMAL : GOTO 1050: R 


EM fin de notes 

1290 ON L$ GOTO 1300,1410 

1300 IF AS = CHRS (6) THEN 1550: RE 
M Ctril-F fin 

1310 IF AS < > CHRS (1) “THEN 350: 
REM Ctrl-A anagramme 

1320 FOR I = 1 TO 6:BS(I) = AS(I): N 
EXT :LI$ = 6 + 100 * RND (li) 

1330 FOR I = 1 TO LIS:X8 = 1 + 6 * 





RND (1):A$ 
= B$(I1$) :B$(I&) 


RND (1):1% = 1 + 6 * 


= B$(X3%) :BS (X3%) 
= A$: NEXT 

1340 HTAB H$ + l: INVERSE : 
1 TO 6: PRINT B$(I);: NEXT 
MAL : GOTO 1530 

1350 IF A$ < > CHRS$S (12) THEN 1370 
: REM Ctri-L donner une lettre 

1360 HTAB H$ + 1: PRINT LEFTS (CS$,6 
JS dd + INT ( RND (1) * 6): 
HTAB H$ + I: PRINT AS$(I);:: GOTO 
1530 

1370 IF A$ < > CHR$ (20) THEN 1050 
A REM Ctrli-T tést 


IG80 FOR I = 1 TO 6: IE TS(I) < > " 
AMERHEN JE TS(I) < SAS (TT) THE 
N AS = "FAUX": GOTO 1400 

ISIONNEXTS: AS = "EXACT" 

1400 HTAB H$ + 1: PRINT LEFTS (CS,6 
):: HTAB H$ + l: INVERSE : PRINT 
AS$S;: NORMAL : GOTO 1530 

1410 IF I > 6 THEN 1430 

IA20 IFOAS< > MM AND, AS <> CHR 
$ (95) THEN 1050: REM . ou Del-3 
2 

1430 IF I < I$ THEN AS = ".":TS(I) = 
one TI + ls GCOTO 41460 

1440 GOTO 1050 

1450 PRINT A$;: GOTO 1050 

1500 REM resultat 

15IOPESEEROE) FORM I= 1 TO. 6: IF AS(I 
)J =" BS(L)NTHEN TIh= TI + 1 

1520 NEXT : VTAB V$%: HTAB H$ + 8: PR 
INT 1I$: IF I$ = 6 THEN 1560 

1530 VS = V$ + 2: IF V#& < 23 THEN 10 


FOR I = 
: NOR 


1540 4% = H$ + 10: IF H$ < 32 THEN 1 


1550 VTAB 24: BTAB 1: INVERSE : PRIN 


D Use FOR TI = 1 TO 6: PRINT A$ 
(I);: NEXT : PRINT "*"};: NORMAL 
: GOTO 1600 


1560 VTAB 24: HTAB 1: INVERSE : PRIN 
T "*GAGNE*";: NORMAL 

1600 PRINT " un autre mot ? (O/N) 

1610 POKE 49168,0: GET AS 

1620 IF (AS = "O") OR (AS = "o") THE 
N PRINT A$;: GOTO 510 

L680.TE (AS = MN") OR (AS = "n") TAE 
N PRINT AS;: GOTO 2000 

1640 GOTO 1610 

2000 REM fin du jeu 

2010 PRINT DS;"LOCK'";ES: POKE 34,0: 
HOME 

2020 PRINT DS;"RUN SIX LETTRES" 

“ SPANLER = ASUS © =CNPRED T° 

BU SET OLIENE- INENS GADGET -S( 


FREE ennrr-OUINZE 
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roDOS est disponible 
depuis seulement deux 
ans, et pourtant, on ne 
dénombre pas moins 
d'une demi-douzaine de versions 
différentes. Cependant, la lecture 
des manuels fournis par Apple ne 
donne pas d'indications sur les 
différences entre ces diverses 
versions. Tout au plus peut-on 
supposer qu'il s'agit 
d'améliorations sur des points de 
détail, des mises à niveau de 
quelques fonctions annoncées 
dans la documentation, ou de 
corrections de quelques bugs. 


Apple assure (théoriquement) la 
compatibilité d'un programme 
tournant sous une version 
antérieure de  ProDOS. 
Cependant, il n'est pas inutile de 
connaître exactement les caracté- 
ristiques de la version que l'on 
utilise, ne serait-ce que pour 
utiliser pleinement les perfor- 
mances du système. 


Il faut également distinguer entre 
les versions du noyau (kernel) de 
ProDOS (fichier ProDOS d'une 
disquette) et de l'interpréteur 
BASIC.SYSTEM. 


La version du ProDOS Kemel 
s'affiche en général pendant le 
boot du système. En revanche, 
celle du BASIC.SYSTEM est 
plus difficile à évaluer. Pour 
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l'obtenir il faut l'exécuter sans 
aucun fichier ‘STARTUP’ sur la 
disquette. De plus, deux octets 
précisent ces numéros : 
KVERSION en $BFFF pour le 
noyau, IVERSION en $BFFD 
pour l'interpréteur. 


Les versions que j'ai pu recenser 
sont : 


ProDOS 
B.4 04/02/83 Kversion= 0 
LO 01/07/83 Kversion= O 


Kversion= O 
Kversion= 0 
Kversion= 1 
Kversion= 1 


1.0.1 01/01/84 

1.0.2 15/02/84 

12 17/08/84 

1.1.1 18/09/84 
Basic.System : 

1.0 15/11/83 

1.1 18/06/84 


Iversion= 0 
Iversion= 1 





qu'une version d'évaluation. 
D'autre part, nous ne nous 
occupons pas ici des autres 
interpréteurs système fournis par 
Apple, tels que FILER, 
CONVERT, EDASM, etc. 


Commandes sous 
Applesoft 


«< Les instructions MON et 
NOMON, issues du DOS 3.3, 
étaient autorisées (pour assurer la 
compatibilité DOS 3.3) mais 
néanmoins ignorées. Depuis la 
version 1.1.1, la commande 
MON engendre bizarrement un 
SYNTAX ERROR. 


+ La commande FRE est enfin 
apparue avec la 1.1.1 ; pour 
rappel, elle nettoie la mémoire 
vive beaucoup plus rapidement 
que son homologue de 
l'Applesoft. 


+ Üne nouvelle commande, 
B'YE* déconnecte le 
BASIC.SYSTEM (version 1.1) et 
pennet d'enchaîner vers un autre 
interpréteur (par exemple FILER 
ou CONVERT). 


+ Les commandes CAT et 
CATALOG ont été partiellement 
francisées (patch par Apple 
Seedrin ?) et fournissent la 
mention "SANS DATE" au lieu 
de "NO DATE" lors de l'affichage 
des catalogues. En revanche, les 
mentions "BLOCKS FREE" et 
"BLOCKS USED" sont toujours 
données en anglais... J'ai 
découvert également (ce n'était 
pas indiqué dans le manuel) que 
Ctrl-C permet d'arrêter l'affichage 
d'un catalogue. 


+ La commande VERIFY qui, à 
la différence du DOS 3.3, se 
contente de vérifier l'existence 
d'un fichier, donne le copyright 
d'Apple lorsqu'elle est appelée 
sans paramètres. 


* Les paramètres “@" (numéro 
de ligne Applesoft) et "V" 
(numéro de volume, ignorés mais 
néanmoins autorisés pour la 
compatibilité DOS 3.3) posent 
problème lorsqu'ils sont utilisés 
simultanément. Editez le 
programme suivant: 


10 PRINT "10" 

20 PRINT "20" 

30 PRINT "30" 
et sauvez-le sous le nom BUG1. 
Maintenant tapez la commande : 


RUN BUG1,@20,V30 


et l'exécution commence à la ligne 
30 au lieu de la ligne 20. II 
faudrait taper : 


RUN BUG1, V30, @20 


Ce bug, heureusement sans grand 
danger, n'est toujours pas 
cormnpé. 





+ Un bug éphémère est apparu 
avec la version 1.0.2 de ProDOS 
lors de l'utilisation de la 
commande CHAIN. Dans un cas 
très particulier (une fois sur 256 
en moyenne), les variables étaient 
mal transmises entre deux 
programmes Applesoft. Evitez 
donc d'utiliser la version 1.0.2. si 
vous appelez CHAIN. 


Gestion de la 
mémoire vive 


Hormis la commande FRE vue 
précédemment, les instructions 
HGR et HGR2 de l'Applesoft 
doivent entraîner, lors de leur 
exécution sous Basic.System, le 
transfert en mémoire haute de la 
partie du programme Applesoft 
qui serait écrasée par l'utilisation 
de la page graphique 
haute-résolution. L'instruction 
TEXT doit transférer le 
programme à son adresse initiale. 
Ceci n'est encore que théorique 
dans le manuel Apple, car aucune 
des versions de Basic.System ne 
supporte cette possibilité. 


+ Les vecteurs de la page 3 
($3D0-$3FF) sont différemment 
initialisés selon les versions de 
ProDOS : 


$3D0-JMP $BEO0 démarrage à chaud de 
BASIC SYSTEM 
$3D3-JMP SBEO0 idem pour compati- 
bilité avec DOS 3.3 
octets réservés pour 
des inter préteurs 
tournant sis ProDOS 
adresse de transfert 
avec $C314 (Apple 
le et f{Cc seulement) 
$3EF- JMP $FAS9 gestion du BRK du 
6502/65C02 
ProDOS 1.0 ne gère 
pas le RESET et 
renvoie au monileur 
ou DA $BE00 ProDOS 1.1 récupère 
le RESET et f ait un 
déravrage à chaud 
octet de contrôle du 
RESET(ProDOS1.0) 
ou DFBS$1B idem (ProDOS 1.1) 
$3F5- JMP SFFS9 ProDOS 1.0 ne gère 
pas l'instruction & 
ou JMP $SBEO3 ProDOS 1.1 envoie 
& vers le point 
d'entrée externe 
$3F8- JMP SBECO vers ProDOS 


$3D6 à $3EC 


$3ED-DA Sxxxx 


$3F2- DA SFF59 


$3F4- DFB $SSA 


$3FB-JMP SFF59 versie démarrage à 
froid du moniteur si 
interruption NMI 

$3FE- DA SBFED gestion des inter- 
ruptions {RQ par 
PraDOS 


Pages globales de 
ProDOS 


Les routines GETBUFR et 
FREEBUFR, dont les points 
d'entrée respectifs sont $BEFS et 
$BEFS et qui permettent d'allouer 
et libérer de l'espace mémoire 
entre ProDOS et ses buffers (par 
exemple pour un programme en 
assembleur), sont implémentées 
depuis ProDOS 1.1.1 ; il n'est 
donc plus nécessaire de les 
simuler (comme dans la routine 
CMDLOAD de Pom's 20). 


Pour vérifier leur existence, 
passez sous le moniteur et tapez 
BEFS5SL. Si vous obtenez : 


$SBEF5- SEC 
RTS 
NOP 
SBEF8- SEC 
RTS 
NOP 
alors ces deux routines ne sont 
pas implantées. 


Gestion des 
interruptions 


Les interruptions masquables 
(IRQ) étaient mal gérées avant 
ProDOS 1.1.1 ; il reste néan- 
moins un bug avec cette nou- 
velle version, car le MLI de 
ProDOS n'est pas réentrant : si 
une interruption intervient alors 
qu'un programme principal a 
appelé le MLI pour exécuter une 
commande, et que la routine qui 





gère cette interruption appelle 
également le MLI, alors certains 
octets de données gérés par le 
MLI auront pu être écrasés 
lorsque le programme principal 
reprendra le contrôle. Il est 
possible de régler cette situation 
conflictuelle, espérons néanmoins 
qu'une version future de ProDOS 
éliminera ce bug. 


En aparté, il faut signaler que les 
interruptions (causées par 
exemple par une souris) sont très 
mal gérées sur un //e lorsque la 
carte 80 colonnes est active. 

Le kit de mise à niveau remédie à 
ce problème (techniquement la 
valeur de l'accumulateur est 
désorrnais stockée sur la pile au 
lieu d'être placée à l'adresse $45). 


Lecture du 
catalogue 


Une des contraintes que nous 
infligaient le DOS 3.3 était la 
difficulté à accéder au catalogue 
d'une disquette. Le Basic.- 
-System, pour sa part, permet de 
lire un catalogue sans avoir à 
manier les PEEK, POKE et autres 
CALL. Le petit programme 
ci-dessous permet d'obtenir un 
tableau A$ où chaque variable est 
formatée comme une ligne 
affichée par la commande 
CATALOG sur le préfixe 
courant : 


100 REM Lecturel 

110 D$ = CHRS(4) 

120 PRINT DS"PREFIX" : INP 
UT P$ : REM obtient le 
préfixe 

130 DIM A$S(200) : REM prév 
oyons 200 fichiers 

140 PRINT DS'"OPEN"PS",TDIR 
“ : REM on ouvre le di 
rectory 

150 PRINT DS$"READ"PS 

160 ONERR GOTO 200 : REM o 
n s'arrêtera en END OF 
DATA 

170 FOR I = O0 TO 200 

180 INPUT AS$ (I) : REM lit 
une ligne 

190 NEXT 

200 PRINT DS"CLOSE"PS 
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Conséquence logique, on peut 
obtenir dans les variables N1 et 
N2 le nombre de blocs 
disponibles et occupés sur un 
volume par le programme 
suivant : 


100 
110 
120 


REM Lecture2 

D$ = CHRS(4) 

PRINT DS$S"PREFIX" : 
OT P$ 

PRINT DS"OPEN"PS",TDIR 
PRINT D$"READ"PS 
FOR I = 0 TO 2 STEP 0 
: REM boucle à vide 
INPUT A$ : REM lit une 
ligne 

170 I = I + (NOT LEN (A$)) 
: REM on attend la 2e 
ligne vide 

NEXT 

INPUT AS$ : REM cette 1 
igne contient les vale 
urs recherchées 


INP 


130 


200 PRINT DS"CLOSE"PS 

210 DEF FN N (X) = VAL (MI 
D$ (A$, X, S)) 

220 Ni = FN N (16) : KREMe 
xtrait le nombre de b1 
ocs libres 

230 N2 =FNN (37) : REMe 


xtrait le nombre de b1 
ocs occupés 


Hélas, tout marche correctement 
tant que l'on accède à un disque 
physique. Mais si on veut 
observer le disque virtuel installé 


Max : 1e 


Jacques Supernant 


par ProDOS sur les Apple de 
128K (préfixe /RAM), le 
Basic.System arrête alors la 
lecture sur le dernier fichier : La 
dernière ligne du catalogue n'est 
donc plus accessible et il est 
nécessaire de lire directement la 
VTOC du disque vittuel pour en 
extraire les valeurs d'occupation. 


Compilation des 
programmes 
Applesoft 


I1 s'agit d'une petite digression 
puisqu'aucun compilateur de 
programmes Applesoft n'est 
officiellement supporté par Apple. 
En effet, leur utilisation pose 
quelques problèmes sous 
ProDOS : 


+ Celui-ci ignore les commandes 
ProDOS qui ont pû être 


compilées (un PRINT 
CHR$(4); "CATALOG" 
affiche le mot "CATALOG" à 
l'écran). 


+ Par ailleurs, si on lance 
l'exécution par un BRUN du 
module objet, ProDOS est 
déconnecté après l'appel ; il est 
donc préférable de faire un 
BLOAD suivi d'un CALL. 


. Enfin, les mêmes problèmes 
existent indifféremment avec 


les compilateurs ‘Tasc’ ou 
‘Expediter’. Unt decteur 
connaît-il les solutions ? 


Trois remarques en guise de 
conclusion: 


+ La liste des bugs relevés 
ci-dessus ne se prétend pas 
exhaustive. Ils ne sont, de 
plus, guère dangereux (pas de 
comparaison avec le célèbre 
bug de l'APPEND du DOS 3.3 
qui vous détruisait un fichier 
sans même vous en avertir !). 


+ ProDOS est un excellent 
système d'exploitation, compte 
tenu des contraintes techniques 
qui ont présidé à sa con- 
ception ; il est désonnais le 
système officiel de l'Apple Il : 
ProFile ou le nouvel UnoDisk, 
par exemple, ne peuvent être 
utilisés sous DOS 3.3. 


L 


+ Ilest préférable de toujours 
utiliser la dernière version 
disponible de ProDOS car, 
d'une part les bugs s'y font 
plus rares et, d'autre part des 
commandes nouvelles ou 
améliorées peuvent y être 


implantées. 


moniteur étendu 


Apple If+, //e, lle 


Ce moniteur autorise un contrôle de l'exécution des 
routines en langage machine 


U n mode Trace et Pas à Pas très évolués et sélectifs sont complétés 


par un accès direct aux registres du 6502 (ou 65C02). 


La gestion des fenêtres d'écran simplifie le mode trace. 
Une routine permet la recherche de suites d'octets. 


Un mini-assembleur très souple fait partie de Max. 


Une ligne de commande peut devenir une boucle avec l'ordre JUMP 
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Les fichiers 
source sont Sur 
la disquette. 


Disquette et 
documentation : 
150,00 F TIC 
franco . Bon de 
commande 
page74. 








Un ‘Print Using’ en 
assembleur 


a tâche de ce programme 

est de combler une 

lacune de l'Applesoft, à 

savoir l'absence de Pnnt 
Using. Il peut être en effet 
nécessaire voire indispensable 
d'aligner des nombres de sorte 
que les chiffres des unités, 
dizaines etc. soient les uns 
au-dessous des autres. Un article 
de Pom's écrit par Jean-Francois 
Duvivier nous avait déjà donné 
une solution grâce a une routine 
BASIC ; je vous propose 
aujourd'hui une routine similaire 
en langage machine. Celle-ci est 
plus rapide, moins encombrante, 
et relogeable dans n'importe 
quelle zone de mémoire utilisable. 


Utilisation du 
programme 


Son utilisation est simple. Il suffit 
de mettre le masque voulu dans la 
variable M$, de ranger le réèl à 
afficher dans la variable X, puis 
enfin de faire Y = USR(X). Cette 
derniere instruction a pour effet de 
passer X du format compacté en 
foninat ‘FAC? (voir pour cela le 
Pom's numéro 12). 


Le masque suit les mêmes règles 
que dans l'article du Pom's 4 à 
quelques différences près: Il peut 





être composé de ‘#”, de ‘.’, et 
d'espaces (au debut du masque 
seulement), mais pas de ‘° car la 
notation scientifique n'est plus 
disponible. 


* # définit un chiffre, et donne 
l'emplacement de la virgule. 

* Aucun retour à la ligne ne se 
produit après un affichage. 

+ Les zéros en tête sont 
remplacés par des espaces. 

*_ Des zéros sont ajoutés à la fin 
pour compléter le masque si 
besoin est. 

* Si le nombre de décimales du 
réèl dépasse celui du masque, 
le nombre est arrondi par 
défaut. 

+ Lorsqu'un signe négatif est 
utilisé, il prend une position #. 

+ Sile masque ne répond pas à la 
syntaxe précédement défnie ou 
si le nombre ne peut rentrer 
dedans, le message MASK 
ERROR suivi du bip habituel, 
est généré. La main est alors 
rendue au niveau de 
l'Applesoft. 


Le programme PRINT-USING 
DEMO illustre tout ceci. 


Remarques 


Dans sa version d'origine, le 
programme renvoie dans la 


Patrice Neveu 


variable Y le nombre affiché. 
Pour supprimer cela et donc 
gagner quelques fractions de 
secondes, mettre un RTS 
($60=96) en $8126 (33064). 

Une autre petite modification peut 
être opérée : si on ne désire pas 
que le message d'erreur propre au 
programme s'affiche, il faut 
modifier les lignes 121,122,123 
de cette facon : 


121 ERR LDX MSKLEN Remplir le 
masque d'espaces 
122 JSR $F#4A PRNBL2affiche 


X espaces 
123 RTS 


Ce qui se traduit depuis le 
moniteur par : 


806E : A6 D7 20 4A F9 60 


Et en basic, il faudra insérer la 

ligne : 

17S POKE 32878,166 : POKE 32879, 
215 : P@kKE 32880,32 : POKE 3 
2881,74 : POKE 32882,249 : P 
OKE 32883,96 

D'autre part, si l’on frappe 

A=USR(X), le résultat sera dans 

À, mais aussi dans Ÿ. La variable 

X reste inchangée. 


Le déroulement du programme est 
expliqué plus en détail sur le 


listing. 
G 





Récapitulation 
PRINTUSING 


8000- AS 00 85 CF 85 CE 85 1D 
8008- 20 34 ED 84 07 85 06 AO 
8010- 00 51 06 FO 10 CS 2x D0 
8013- 02 84 CF 99 00 03 C8 CO 
8020- 18 DO EE A9 00 99 00 03 
8028- 84 EB AS 69 85 08 AS 6A 
8030- 85 09 A0 00 Bi 08 CS 4D 
8038- DO 18 C8 Bi 08 C3 80 DO 
8040- 11 C8 81 03 85 D? C8 Bi 
8048- 08 85 18 C8 Bi 08 85 19 
8050- DO 35 AS 08 18 69 0? 85 
8058- 08 90 D7 E6 09 AS $C C5 
8060- 03 BO 0B DO 06 AS 68 C5 
8068- 08 BO 03 18 90 C4 AG 80 


8070- A9 78 20 3A DB 20 3A FF 
8078- 4C DO 03 8D CD Ci D CB 
8580- A0 CS DZ D2 CF D2 00 A4 
8C38- D? 83 81 18 C9 20 00 04 
8090- E6 1D DO OA C9 23 F0 06 
8093- C9 2£ DO D2 84 CE 98 10 
80A0- E 9 AD 00 03 C9 2E F8 08 
8048- AS CF DO 04 AS EB 85 CF 
80B0- A5 CE DO 04 A5 D7 85 CE 
80B8- AS CE 38 ES 1D CS CF 90 
80C0- AD A4 Cé A9 20 99 31 03 
80C8- 88 10 FA AS CF DO 08 A4 
80D0- CE 88 A9 30 99 31 03 A0 
80D8- 1F A9 30 99 31 03 98 C4 
80£0- CE 90 F8 Ad D7 A9 00 99 
80E8- 31 03 AS CF FO 10 A6 CE 
80FO0- A4 CF 88 CA B9 00 03 90 


80F8- 31 03 CA 88 10 F6 A6 CE 
8100- A4 CF A9 2€ 97 31 03 89 
8108- 00 03 FO 00 $D 31 03 E8 
8110- C8 C4 EB BO 04 E4 D? 90 
8118- £E AO 00 E9 31 03 09 80 
8120- 20 ED FD C8 C4 D7 90 F3 
8128- AS 69 85 08 AS 6A 85 09 
8130- AO 00 B1 08 C9 59 DO 05 
8138- C8 B1 08 FO 18 AS 08 18 
8140- 69 07 85 08 90 EA E6 09 
8148- AS 6C C5 09 B0 37 DO EO 
8150- AS 6B C5 08 BO 2F 90 D8 
9158- C9 98 18 65 08 85 08 90 
8160- 02 E6 09 A5 88 45 FE AS 
8168- B9 85 FF A9 03 85 B9 A9 
8170- 30 85 B9 20 4A EC A4 09 
8178- A6 08 20 2B ES AS FE 85 
8180- 88 AS ÊE 85 59 60 
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Programme PRINTUSING.S 
(Assembleur BigMac) 


S © ON 4 Un à LU Ni be 


2 


82 
93 
84 

85 
86 
87 
88 


CLLALLLLIELERLLLLELILLLLLILLLLIELELIZ 
. PRINTUSING 1.1 * 
. . 
#x(C) °06/06/8522?PATRICENNEVEU?** 
STROOT =  $DS3A SORTIE DE CHAINE DE CARACTPRES 
MORE "  $E828 COMPACTE FAC £T LE MET EN (x,x} 
FIN = S$SEHC4A SA?SI ON NOMBRE PAR CHRGET > FAC 
FOUT = $EDi4 FAC -> CAATI& DE CARACTCRES 
cour =  $eDED SO8TIE DE CARACTERE 
B6LL = SFFIA BIP SONORE 
CHAINE “  $0300 RESULTAT DE FOOT 
RESULT - $0331 NOMBRÉ PASSE PAR LE MASQUE. À AF 
FICRER 
BASIC =  $o300 RETOUR A L'APPLESOFT 
ADR = $os 
VARTAB = sos 
MASKADR =  $19 ADRESSE DE M$ 
SPACES = $1n NOMBRS D'ESPACES AVANT LE MASQUE 
LOMEN = $69 DSBUT DES VARIABLES SIMPLES 
ARYTA8 =  $6B DERUT TABLEAUX VARIABLES, FIN VAR 
+SIMP. 
TXTETR =  $sB8 ADRESSE CARACTERE OBTENU PAR CAR 
ŒT 
MSKPOINT = $CE POSITION DU POINT DANS LE MASQUE 
CBNEOINT = $CF POSITION DU POINT DANS LA CRAINS 
MASKLEN = $D7 LONGUEUR DU MASOUE 
CRAINLEN «  $EB LONGUEUR D£ LA CHAINE 
TXTPTRZ =  $FE SAUVEGARDE DE TXTPTR 
L'ÉCCSPESEES 
#* INITIALISE 
L'ÉPETSSESE at mm 
LDA #$00 
STA CANPOINT 
STA MSXPOINT 
STA SPACES 
A 





#* CONVERTIR FAC EN CBAINS DE 
# CARACTERE EN 5300 


LP 
JSR FOUT FAIT LA CONVERSION 
STY ADR+1 SAOVE L'ADRES DU RESULTAT OBTENU 
STA ADR 
LOY #0 &T TRANSFERE LE RESULTAT EN S300 
NANT LDA (ADR),Y POUR UTILISATION ULTERIEURE 
860 NANTIS C'EST FINI ? 
CMP 4". SI C'EST UN PDINT, ALORS IL FAUT 
BNE MANTI EN SAUVER LA POSITION... 
STY CHNPOINT VOILA QUI EST FAIT. 
MANTI STA CHAINE, Y 
INY PASSE AU PROCHAIN CARACTERE 
CPY #$10 ON EN TRANSFERE 16 MAXIMUM 
BNE MANT 
LDA 400 
MANTIS STA CHAIN&, Y MASOOE FIN D£ CHAINE PAR UN S00 
STY CHAINLEN CONSERVE LONGUEUR DE LA CAAÂINE. 


* VA CHERCHER LE MASOUE SJIUCRE 
+ DANS LA VARIABLE NS. 





LDA LOHŒM PARTIR DU DEBUT DES VARIABLES 
STA VARTAB 

LDA LOMEMo 1 

SIA VARTAS+] 


CHRCH £DY #0 
{OA (VARTAB),Y 
CHP 4'°'H C'EST HS ? 
BNE NXTVAR 
INY 
LOA {VARTAS),Y 
CMP 4580 
BNE NXTVAR NON ALORS ON PASSE À PROCHAINE 


« M$ TROUVE. 


INY 
LOA (VARTAS), Y 
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49 STA HASRLEN C'EST LA LONGUEUR DE LA CHAINE 
50 INY 
91 LDA (VARTAB), Y 
92 STA MASKADR ET SON ADRESSE EN MEMOIRE 
93 INY 
94 1IDA {VARTAB),Y 
95 STA MASKADR+1 
96 ONE VRFYMSR TERMINE, IL PAUT VERIFIER LA SYN 
97e TAXE OF CE MASQUE 
98 * M$ PAS TROUVE, SUIVANT... 
99 
109 NXTVAR LDA VARTAB POUR PASSER À LA PROCRAINE VARIA 
101 CcLC 8LE, IL FAUT ALLER LIRE 
102 aoc #7 7? GŒTETS PLUS LOIN 
101 STA VARTAB 
104 BC cure 
105 INC VARTAB+1 
106 
107 LDA ARYTAB+] 
108 CMP VARTAS+i SO0OT DE LA SOBE RESCAVEE AUX 
109 BCS ERR VARIABLES SIMPLES ? SI OUI, ERR£C 
110 BNS CONTIN7 UR! SINON. ŒyY PASSE À LA PAOCHAI 
WE VARIABLE 
111 LDA ARYTAB 
112 CMP VARTAB 
113 BCS ERR 
114 
115 CONTNXT CIC 
116 BCC CHRCH 
117 
119 * ERREUR, LE MASQUE N'EXISTE PAS 
d19 * QU N'EST PAS CONVENABLE 
120 
121 FR8R LDY P>ERRMSG ON CHARGE L'ADRESSE DU MESSAGE DO 
* ERREUR 
122 LDA #<ŒRRNSG 
223 JSR STROUT POIS ON SAUTE L'AFFICHER 
124 JVSR 8SELL AVEC BIP L'IGNORLE 
125 JUMP BASIC £T ON REND LA MAIN AU PROGRAMŒU 
R D£ECU 
126 
127 ERREG #EX 8D POUR SAUTER UNE LIGNE 
128 ASC "MASK ERROR" 
129 REX 00 
130 
III = mm mm me nan 
132 + VERIFIE LA FURMÆ DO MASOUE 
133 2 Er Es in EEE 
134 
135 VRFIMSR  LDŸ MASKLEN PARTIR D£ LA FIN 
136 DEY -1 CAR LA POSITION 8PRO COMPTE 
137 VRFYMSKI LDA (MASKADA), Y PRENDRE UN CARACTERE DJ MASQOE 
138 CRE 6° C'EST UN ESPACE ? 
139 BNE VRFYMSK2 
140 INC SPACES 
141 SNS NXTCAR 
142 URFYASK2 CMP f'4 C'EST UN 4 ? 
143 BEO NXTCAR 
144 CAP #'. PEUT-ÈTRE UN , ? 
145 BNE £RR RIEN DE TUOT CELA: LANCE L'INSUL 
Œ 
14€ STY MSKPOINT LA POSITION DO POINT DANS LE MAS 
QUE 
147 NXICER DEY PROCAAIN CARACTERE 
148 EPL VRFYMSKI £T VA JUSQU'AO BOUT ! 
149 
150 





151 * AÏTENTION SI 0 < NOKGBRE «< j 
152 * SI ON A UN ENTIER, ALARS: 
153 #* CANPOINT = CRAINLEN 








154 

155 

156 LDA CHAINE SI LE PREMIER CARACTERE EST ON . 

157 CMP 4'. ALORS ON NE PEUT PAS AVOIR UN EN 
TIER... 

158 BEQ MSKINT 

159 LDA CHNPOINT LA POSITION DO POINT INDIQUE SI 
ON A 

160 BNE MSKINT ENTIER OÙ NON. (O-£NTIER, AUTRE» 
REELI 

161 LDA CRAINLEN 

162 STA CANPOINT 

163 

DRAP = ss 

165 * SI LE MASK EST ENTIER ALORS; 

166 * MSRPOINT = MASXLEN 

267 mm 

168 

169 MSKINT LDA MEKPOINT OPFRATION IDSNTIQUE SUR L£ MASO 

170 BNE VRFTAILLE 

171 LDA MACKLEN 

172 STA MSKPO INT 

173 

274 D mm 


175 * CANFOINT =< MSAPOINT-SPACES ? 





67 


176 2" 

47 

178 VRFTAILLE LDA HSKPOINT CECI POUR SAVUIB SI LA PARTIE EN 

179 SEC TIÈRE CU NOMBRE PEUT ENTRER COMP 

180 SBC SPACES LETE'ME NT DANS LE MASQUS. 

181 CMP CHNPOINT 

182 BCC £ERR SI C'EST TROP ETROIT, IL FAUT LE 
DIRE 

183 

194 #*—— = 





185 + ATTENTION SI 0 < NOMBRE < ] 
186 * PARTIE AVANT LS POINT: SSPACES 


297 em mms. 

188 

189 LDY MSKPOINT ON MET DES ÉSPACES AVANT LE POIN 

199 LDA #° T POUR QUE CA SOIT JOLI SI LE MA 

191 CLRESULT STA RESULT, Y SQUE EST TROP GRAND COTE ENTIER 

192 DEY 

193 BPL CLRESULT 

194 

195 LDA CHNPOINT SI LE PREMIER CARACTERE DO NOMEBR 

196 BNS CLRFSULTI E EST UN POINT. ALORS CEMNPOINTaO 

193 LDY MSKPOINT £T IL FAUT METTRE UN ZERO AVANT 
LA VIRGULE 

198 DEY 

189 LDA 4'0 

200 STA RSSULT, Y 

201 CLRESULTI EQU * 

202 

203 "nn 

204 * PARTIE APRES LE POINT: 2EROS 

205 2 

206 

207 LDY #SIF POUR QUE CA SOIT ENCORE PLUS JUL 


208 LDA 4"6 I, ON M£T D£S 2ERO À LA PARTIE D 


209 ZERO STA RESULT, Y ECIMALE AU CAS OÙ LE MASQUE SERA 
IT TROP GRAND 

210 DEY 

211 CPY MSKPOINT 

212 BNE &S8RO 





219 LDA 4500 

220 STA RESULT, Y 

221 

292 ff = 


223 * ATIENTION S1 O0 < NOMBRE < 1 
224 * COUPE LA CHAINE SELON LE MASQUE 
225 * ET RANG&-LA DANS RESULT ($330) 








228 LDA CANPOINT 0 < NOMBRE < 1 ? 

223 BEC FORM 

230 LDX MEKFOINT II FAUT SE POSITIOWNER JUSTE AVA 
NT LE 

231 LOY CHNPOINT 

232 DEY 

232 DEX 

234 

235 FORMAT LDA CHAIN&, Y DECALE LA PARTIE ENTIERE EN PART 


236 STA RESOLT,X ANT OU POINT 

237 DEX 

238 DEY 

239 BPL FORMAT POUR TOUS LÈS CHIFFRES 

240 

241 FORM IDX MSKPOINT ON INSCRIT LE POINT 

Z42 LDY CHNPOINT 

243 LDA #'. 

244 STA RESULT, X 

245 

246 FORHA LDA CHAINE, Y 

267 HËO FORMSND ON EST AU BOUT DE LA PARTIE DECI 
MALE ? 

248 STA RESULT, X NON ALORS CONTINUE DE DECALER À 
PARTIR 

249 INX DÜ POINT ET VERS LA DR@ITE 

250 INY 

251 CPY CHAINLEN IL RESTE DES CHIFFRES DANS LA C4 
AÎNE ? 

252 BCS FORMEND 

253 CPX MASKLEN Si OUI, RÈSTE-T-IL DE LA PLACE D 

254 BCC FORMA ANS LE MASQUE ? 





262 LOY 4500 
263 PRNTUSING LDA RESULT, YŸ 





264 ORA 4$80 BIT 6x1 POUR AVOIR LE MODE VIDEO 
NORMAL 

265 JSR COUT 

268 INY 

267 CPY MASALIN 

268 &CC PRNTUSING 


CNW RECOMMENCE A CHERCHER UNE VAR 
IABLE DONC ON FAIT PAREIL QU'AU 
DEBUT. .. 





276 LDA LOWEM] 

277 STA VARTAB+1 

279 

279 CARCEY LOY #0 

280 EDA (VARTAB), Y 

281 CMP J'Y SAUF QUE MAINTENANT C'EST Y 

282 BNE NXTY 

283 INT 

294 LOA (VARTAB],Y 

285 BEQ YTROUVE 

288 

287 * Y PAS TROUVE, SUIVANT... 

289 

289 NXTY LDA VARTAB 

290 Ccic 

291 ADC #7 

292 STA VARTAB 

293 BCC CHBCEY 

294 INC VARTAB+1 

295 

296 LDA ARYTAB+1 

297 CMP VARTAB+1 

298 BCS RSTOUR 

299 BNE CERCHY 

300 LDA ARYTAB 

301 CMP VARTAE 

302 BCS RETOUR 

303 BCC CLRCHY 

304 

305 YTROOVE INY 

306 TYA 

307 CIC 

308 ADC VARTAB 

399 STA VARTAB 

310 BCC TRANSF 

311 INC VARTAB+] 

312 

313 TRANSF LDA TXTPTR IL FAUT SAUVSR L£ TXIPTR ACTUEL 

314 STA TXTPTR2 CAR ON VA AVOIR À S'EN SERVIR PO 

315 LDA TXTPTRs1 UR REMETTRES UNE CHAINE DANS FAC 

316 STA TXTPTR24] 

317 LDA #$>RESULT CETTE CHAINE, C'EST RESULT 

318 STA TÂTPTRFI C'EST A DYR£E CE QUI SERA AFFICHE 

318 LDA #<RESULT-I CAR TATPTR POINTE SUR L£& DERNIER 

320 STA TXTPTR CARACUTILISF. PRENDRE DONC LE PF 
ÆRSCEDENT. 

322 

322 JSR F'IN RANGE RESULT DANS FAC 

323 LDY VARTAB+1 CHARGE L'ADRESSE DE LA VARIABLE 
LÉ 

324 LDX VARTAE 

325 JSR HOVÆF POUR METTRE FAC DEDANS 

26 

327 LDA TXTPTR2 MAINTENANT QUE C'EST 1ERMINE, ON 

328 STA TXTPTR REPREND LE TXTPTR D'ORIGINE POUR 

329 LOA TXIPIR2+] QUE LE BASIC NE SE PLANTE PAS 

330 STA TXTPTR+I 

331 


332 RETOUR RTS 


Programme PRINTUSING DEMO 


110 PRINT CARS (4}=92QAD PRINTUSING* 











120 REM ------_PROTEGE LA ROUTINE 
230 #DD1: 32767 

140 REM -- FIXE LE VECTEVUR USER 
150 PORE 11,0: PORE 12,128 

168 REM -------PAS DE VALEUA-RETOUR 
170 POS 33064,96 

130 RIM --——--EXEMPLES 


190 TEXT : HOME : INVERSE : PRINT ” PRINT USING / DEMONSTRATION 
7: NORMAL : VTAB 5 

209 PRINT 000 6ÉL ON S00$60.5000" 

210 VTAS 20: FRIST "LE ‘MASK LRROR' SI PROOUIT CAR LE MASQUEEST TROP ETRO 
IT POUR LA FARTIE ENTIERS O0 NONERE.": VTAS 6 

220 FOR I = 1 TO 12 : RCAD X : PAINT X; : KTAB J0 

260MS 7 "EY = USR (x) 

270HS = * #N#.#NTIT =  OSR x) 

290 PO — * #V#SOUU. OU OUT :X = USR {x} 

290 PAINT : NEXT 

309 DATA -10,1.25,12.5,27.759812,.1,46.25,57.5.68.75,80,91.2513,-0.1,1234 
5.678950 
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Atlas de géographie historique de 
la France et de la Gaule, par 
Stéphane Sinclair - SEDES (88, bd. 
St. Germain, 75005 Paris) - 260 pages 
— 105 FF. 


L'originalité de cet ouvrage, en dehors 
de son sujet, tient à ce qu'il comporte de 
très nombreuses cartes réalisées à partir 
du Macintosh et sorties en Laser Writer. 
Décidément, celle-ci gagne du terrain 
tous les jours ! 


Gérer le développement de 
l'entreprise (guide Multiplan), par 
W. R. Osgood, D. P. Curtin et F. 
Camelin - Cedic/Nathan — 172 pages — 
240 FF - Traduction/Adaptation. 


Contrôler et optimiser les 
décisions financières (guide 
Muitiplan), par J. Alves, M. Selva, B. 
Laur, D. Rigolet et P. Derly - 
Cedic/Nathan — 186 pages —- 240 FF - 
Traduction/ Adaptation. 


Dans une présentation claire, ces guides 
sont de bons outils de travail. Le premier 
est en quelque soite une check-list pour 
la création, à l'aide de Multiplan, d'un 
dossier sur votre entreprise, en vue 
d'une demande de prêt ou d'une 
opération d'augmentation de capital. Le 
second est spécialisé dans la gestion 
financière. Ces deux livres sont 
intéressanÿs par leur aspect pédagogique, 
dans la matière étudiée comme pour la 
constitution des tableaux. 


Apple, modems et serveurs, par 
Alain Mariatte — Editions du PSI — 220 
pages — 130 FF. 


Après une introduction sur la révolution 
téilématique, cet ouvrage comporte trois 
parties d'importance comparable : la 
technique des transmissions, les réseaux 
télématiques et les aspects logiciels. 


Ce livre se lit aisément et comporte de 
nombreux exemples de connexion sur 
divers systèmes, ainsi que plusieurs 
petits programmes utilitaires. Un bon 
complément du livre de Jacques 
Bessières, la Téléinformatique 
Personnelle. 


Bibliographie 


Alexandre Duback, Alexandre Avrane 


Apple ProDOS Advanced 
Features for Programmers 

Gary B. Little Prentice-Hall Publishing - 
266 pages - $23.35 (sans disquette) 


Ce livre s'adresse aux programmeurs 
système désireux d'implanter leur 
création dans un environnement 
ProDOS. Il suppose donc un certain 
nombre d'acquis, en particulier de 
l'assembleur 6502 et du ProDOS 
Technical Reference Manuel (je trouve le 
lecture de ce dernier indispensable mais 
aussi insipide que les brochures IBM. 
Où est passé le style d'écriture 
d'Apple ?} 

X reprend les points fondamentaux des 
protocoles d'interface avec ProDOS : 
appel du MLI, gestion de la carte RAM, 
interpréteurs-système, routine d'inter- 
ruptions, modules d'accès à une 
mémoire de masse ouune carte horloge, 
etc. 


Moins descriptif que Beneath Apple 
ProDOS, il aborde surtout les aspects 
pratiques d'utilisation mais se montre, à 
l'usage, beaucoup plus utile. 


Informatisez votre comptabilité et 
votre gestion, par Bernard Eben -— 
Marabout Informatique — 256 pages 
(format livre de poche). 


Cet ouvrage donne un certain nombre de 
conseils sur l’art et la manière de 
programmer la comptabilité d'une 
entreprise, avec un petit programme en 
Basic (où l'auteur gagnerait à découvrir 
l'existence de variables indicées) et un 
programme dBase II de 18 pages (plus 
intéressant). M aurait été plus intéressant 
de constuire le livre tout entier autour de 
la création d'un programme de compta 
personnalisé en dBase II. 


Macintosh, l'ami du travail et du 
jeu, par Lon Poole — Editions Cedic 


Nathan - 448 pages —- 195 FF 
— Traduction. 
Un bon livre d'introduction au 


Macintosh : une première partie générale, 
une seconde partie avec des chapitres sur 
MacWrite, MacPaint et Multiplan, une 
troisième partie présentant 24 petites 
applications en 90 pages, et enfin un 
dossier de référence. 


Applications graphiques pour 
Macintosh, par Andreas Pfeiffer — 
Cedic/Nathan — 281 pages — 150 FE. 


Six parties : Macintosh et création 
graphique, Interfaces de digitalisation, 
Dessin de précision et CAO, Logiciels de 
mise en page, Générateurs de 
graphiques, De l'utilisation de belles 
images. 

Livre sorti sur Laser Writer dans une 
présentation bien pensée et agréable. Le 
fond est à la hauteur de la forme. Un 
livre à conseiller à tous ceux que les 
applications graphiques intéressent. 


Apple ProDOS  Disk/File 
Handling de Graham Keeler - 
Prentice-Haïl Publishing - 353 pages - 
$17.95 (sans disquette) 


Livre d'initiation aux techniques de 
manipulation de fichiers sous ProDOS, il 
s'adresse principalement aux débutants 
ou aux utilisateurs qui ne possèdent pas 
les manuels Apple de programmation 
sous ProDOS. 


Les chapitres décrivant les commandes 
de ProDOS sontcompiétés par une série 
d'exercices en Basic Applesoft. Puis une 
introduction à la création d'une base de 
données est esquissée, suivie de 
quelques routines utilitaires. 


Utiliser Multiplan, par Erwin 
Schneider — Editions d'Organisation — 
260 pages — Traduction. 


Hélas, encore une traduction effectuée 
par quelqu'un qui ne connaît pas 
Multiplan ou a bâclé son boulot ! Tous 
les exemples sont présentés à partir d'un 
Multiplan en version française, avec la 
syntaxe de la version américaine : par 
exemple, les arguments des fonctions 
sont séparés par des virgules, et non des 
points-virgules comme c'est le cas dans 
la version française. 


La traduction mise à part, nous 
n'apprécions pas non plus la logique de 
l'ouvrage, qui consiste à présenter les 
liens externes avant même de montrer 
comment faire une somme. 
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"Ah ! le revoilà lui”. Devinez qui 
nous rentre au bercail sur l'air du 
père prodigue ? Eh oui, c'est bien 
lui : Steve Wozniak, le “papa” de 
l'Apple {/ qui revient dans le giron 
d'Apple à (Cupertino, en 
commençant par racheter la valeur 
de $ millions de dollars d'actions 
d'Apple. Il en convoite encore 
d'autres pour 15 millions de 
dollars. Au total, un million 
d'actions frappées de la pomme 
pour 20 millions de dollars. Une 
remarque au passage : Wozniak 
ne fait pas une mauvaise affaire : 
il en avait vendu 3 millions en 
février pour 70 millions de 
dollars. Un petit travail sur la 
calculatrice du Macintosh : à 
rachète 20 dollars des actions 
qu'il avait vendues 23,33 ! 


Pourquoi ce retour ? Officiel- 
lement, parce qu' "Apple va dans 
le bon sens”. 11 faut dire que 
depuis quelques temps, Steve 
Wozniak s'intéressait énormément 
aux produits d'Apple. Comme si 
l'Apple /{ lui manquait. Au point 
de se transfonner en homme 
sandwich. L ne se passait pas de 
semaine, sans qu'on ne voie sa 
photo dans une publicité pour 
proclamer, combien il admirait 
"de tout cœur, les produits 
d'Applicd Engineering”, ou 
s'exelamer que ‘la série des 
progammes Mouse (les produits 
de Version Soft, vendus aux Etats 
Unis par International Soluñons) 
est l'évolution naturelle des 
logiciels pour Apple //, en 
apportant les avantages du Mac à 
l'Apple /f. 


En ce mois de janvier frileux, la 
date insciite sur l'agenda de tous 
les Applemaniaques c’est celle de 
l'Assemblée des actionnaires qui 
apportera comme chaque année 
son lot de nouveautés. Cette 
année, c'est sur le Mac nouveau 
qu'on spéculait, 


Un Macintosh plus puissant (1 
Mégaoctet de mémoire en 
standard, extensible jusqu'à 
quatre, une nouvelle ROM de 
128Ko, intégrant davantage 
d'éléments du système contenus 
jusqu'ici sur la disquette, un 
lecteur de disquettes double face 
de 800Ko, bref, la réponse aux 
souhaits de tous les utilisateurs de 
Macintosh). A dire vrai, on 
prévoyait mème deux Macintosh, 
l'autre étant encore plus 
révolutionnaire : modulaire en 
trois éléments, avec un clavier 
plus complet, un écran séparé, et 
une unité centrale comportant une 
sortie pour disques durs au 
standard du marché. 


Les possesseurs de Macintosh 
d'avant 1986 ne seraient pas 
laissés pour compte, puisqu'on 
leur proposerait une extension de 
mémoire à un Mégaoctet, 
accompagnée d'un lecteur de 
disquettes double face et de la 
nouvelle ROM. Les piix seraient 
intéressants, puisque l'extension 
de 128Ko H 1 Méga serait 
proposée au même prix que 
l'ancienne extension à 512Ko. A 
ce propos, les Macintosh de 
128Ko ne seront vraisem- 
blablement plus fabriqués. le 


S12Ko devenant le bas de gamme 
Macintosh. Cc qui est sür, c'est 
que le maître mot inscrit au 
fronton d'Apple, c'est désormais 
ja compatibilité. 


Compatibilité sur 
le Macintosh 


Compatibilité interne d'abord : le 
Mac serait capable bientôt 
d'émuler parfaitement l'Apple //, 
et comme nous l'amnoncions dans 
le précédent numé1o de Pons, 
l'Apple // rendait la pareille à son 
cadet 


Compatibilité externe surtout : les 
Apple iraient en enfer et 
s'intégreraient dans l'univers 
impitoyable. Lequel ? Celui 
d'IBM, bien sûr. Tout en 
annonçant une augmentation de 
son budget de recherches de 50% 
(une manière de répondre à ceux 
qui, comme l'auteur de cette 
rubtique, doutent des capacités 
d'Apple, privé de Steve Jobs, à 
développer aujourd'hui l'ordina- 
teur à sortir dans cinq ans), John 
Sculley, le PDG de la finne a 
annoncé en octobre “qu'Apple 
offrirait des produits compatibles 
avec les standards d'IBM". 
Traduisons : il ne s'agit pas de 
construire des compatibles 1BM 
sous la marque Apple (bien qu'à 
Cupertino, on s'intéresse, 
paraît-il, énormément à la seconde 
version, avec disque dur, de Mac 
Charlie, cette extension 
warfonnant le Mac en terminal 
compatible IBM, capable d'avaler 
toutes les disquettes du PC, et de 
métamorphoser un superbe écran 
graphique intelligent en engin 
barbare affichant le sinistre A> du 
MS-DOS). N s'agit d'intégrer les 
Apple à l'univers IBM, devenu 
que cela plaise ou non celui de la 
majorité des bu d'Ouire 
Atlantique et de France. Cette 
intégration se réaliserait de deux 
façons : 

1° par les fichiers. Apple et IBM 
semient capables de travailler avec 
des programmes différents, mais 
de s'échanger les données, ce qui 
éviterait des doubles saisies. Ceci 
grâce à l'adoption par Apple de la 
nonne des fichiers développée 
pour l1BM et baptisée DCA. 


2° par les réseaux : des Apple 
seraient branchés sur les réseaux 
compoitant des IBM. Pour cela, 
Apple a annoncé son adhésion au 
standard de réseau en anneau à 
jeton dévoilé par IBM en octobre. 
Ce branchement serait aussi 
possible sur les réseaux d'autres 
constructeurs. A surveiller 
particulièrement le réseau 
EtherMac pour Macintosh, qui 
pourrait communiquer facilement 
avec le réseau EtherNet développé 
par le même coastructeur pour les 
PC: 


L'année 1986 apportera aussi aux 
amateurs d'Apple de bonnes 
nouvelles sous forme de baisses 
de prix. Celui de l'imprimante 
Caserwriter avait déja baissé (sous 
la pression de la concurrence) de 
1000 dollars aux États Unis à la 
fin 1985 pour passer à 6000 


dollars. Les Apple //c étaient 
tombés au-dessous de 10000,00 
Francs dès la fin de l'année pour 
une configuration “opération- 
nelle". On pouvait méme trouver 
pour moins de 8000,00 Francs 
une configuration comprenant un 
Apple //e, un lecteur et un 
moniteur. Il est vraisemblable que 
ce n'est qu'un début. Et que des 
baisses de prix s'appliqueront 
encore à toute la gamme Apple. 
Pour le même prix, On aura peut 
être cette année en plus une 
imprimante. Qui s'en plaindrait? 
En attendant, le panorama des 





chaleureux supporters de l'Apple 
LA 


Chute du prix des 
mémoires du Mac 


En France aussi, la baisse du prix 
des mémoires a contaminé le Mac. 
En décembre, l'extenaon de 128 
à S12Ko était ainsi couramment 
proposée à 2 500,00 Francs et le 
passage de 512 à 1,5 Mégas à 
moins de 8 000,00 F. 


Micro- 


informations 


Jean-Michel Gourévitch 


matériels et logicicls lancés à la fm 
1985 pour les Apple s'avère 
particulièrement riche. Comme 
une manière de pied de nez aux 
concurrents du style Atari ou 
Amiga qui voudraient déja hériter 
du mathé. 


Mémoire : toujours 


plus ! 


Il est bien loin le temps où 16 
Kilo-octets suffisaient ue la 
comptabilité d'une banque. 
Désormais, les exigences de 
mémoire pour les utilisateurs de 
micro-ordinateurs se chiffrent en 
Mégaoctets. Reprenons les 
épisodes précédents : dans lc 
numéro 2], Pom's annonçait 1,5 
Mégaoctets casés surune carte de 
l'Apple //c. Record battu par 
Applied Engineering avec 3 
Mégas ps 1700 dollars. Qui dit 
mieux ? Cette course à la mémoire 
ne se fait pas sans dépâts. 
Pendant quelques temps, 
l'absence d'Apple avait laissé le 
champ libre à quelques pionniers 
comme Applied Engineering. 
Ceux-ci ont développé des cartes 
s'installant dans le slot auxiliaire 
del'Apple fe. Or voici qu'Apple 
a récemment sorti sa carte 
d'expansion. Et que celle-ci 
s'installe dans un des slots 
normaux de l'Apple. 

Conséquence : les programmes 
comme AppleWorks où l'on a 
installé un “patch” pour 
reconnaître la mémoire 
supplémentaire des fabricants de 
cartes ne reconnaissent pas celle 
d'Apple. Plus grave : les 
concepteurs de logiciels écriront 
de préférence des programmes 
pour la carte d'Apple, et ceux-ci 
ne pourront utiliser les cartes 
concurrentes. Si ce malentendu 
n'est pas réparé, il risque de faire 
du vilain chez les conswucteurs 
d'extensions et cartes en tous 
genres qui sont pourtant les plus 


Disques durs 


Pour l'Apple // d'abord. Avec 
cette fois, un disque dur interne 
américain proposé par SCS. Il est 
contenu sur une carte s'installant 
sur un des slots et disponible en 
version 10 Mégas ($1200s) et 20 
Mégas ($1600). Un pari : on n'a 
pas fini de voir se développer de 
tels disques durs “en carte” pour 
l'Apple // et leur prix baisser. 


Et le Mac ? 


En attendant le disque dur de 20 
Mégas Apple, Micro Expan- 
sion, a proposé un disque dur de 
S Mégas pour le Mac, pour moins 
132 000,00 F (qu'il est possible 
d'échanger ultérieurement contre 
un disque dur de plus grande 
capacité). 

Mais, l'offensive a été ouverte sur 
le front des lecteurs double face. 
Premier à tirer, le français 
P-Ingénierie qui s'est avisé à la 
fin 1985 que le lecteur double face 
de 800Ko Unidisk pour l'Apple // 
pouvait parfaitement fonctionner 
sur le Mac (à condition de réaliser 
un bricolage très simple 
court-circuitant la sortie "de 
chaînage” de ce lecteur). Restait 
cependant un problème : comment 
formatter des disquettes 
double-face ? Avec le nouveau 
Mac, ce sera facile, car les 
instructions sont dans la nouvelle 
ROM. Et en attendant ? 
P-Ingénierie a tout simplement 
écrit un Lors de formattage des 
deux côtés de la disquette et 
décidé de vendre des disquettes 
double face Fuji pré-formattées. 
Pour les utilisateurs, le coût des 
disquettes était élevé, mais La 
modification intéressante 
800K0o, en uälisant un Unidisk, 
cela perinet de caser un Sw'acher 
et plusieurs applications, ou 
d'avoir un gios système (avec 
accessoires de bureaux et polices 
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de caractères). Reste que cette 
opération était forcément limitée 
dans le ternps : les nouveaux Mac, 
présentés ce mois ci auront en 
standard les 800Ko. 

A noter d'ailleurs que plusieurs 
firmes d'Outre Atlantique se sont 
également lancées dans les 
lecteurs double face, c'est le cas 
de Mirror Technologies avec 
le Mirror Magnum de 800Ko, 
et de Dataspace Corporation 
avec un autre lecteur double face. 


Des gadgets 


La micro-informatique n'y 
échappe pas. Aux Etats Unis, un 
constructeur vend ainsi une table 
spéciale pour le Mac : la 
MacTable de ScanCoFurn, 
spécialement construite pour 
abiiterle Mac, l'Imagewiiter, etc. 

Un fabricant a trouvé moyen de 
fournir un écran LCD pour 
l'Apple /{c, plus lisible qe celui 
d'Apple, cest le C Vue de 
Roger Coats vendu avec une 
batterie pour alimenter l'Apple //c 
pour 600 dollars. 

Plus intéressante l'Image Blue 
de Image Communications. 
Cet appareil (mi-scanner, mi 
imprimante) permet simulta- 
nément de “scanner” (c'est à dire 
de transformer lignes ou 
caractères en données 
informatiques) un texte ou un 
dessin et de l'entier dans un 
programme du Macintosh (4 
pages graphiques peuvent être 
stockées sur une disquette), puis 
de l'imprimer. Prix : 1295 
dollars. À coter que cette machine 
est également compatible avec 
l'IBM PC. 

Enfin, le Soft Strip de Cauzin 
pourrait changer la vie de tous les 
amateurs qui recopient des 
programmes dans des revues 
spécialisées de micro- 
infonnatique. C'est un lecteur de 
code qui se branche sur un micro 
(et notamment sur l'Apple //) par 
l'entrée RS232. Les listings de 
programmes, graphiques, sons, 
etc, peuvent être imprimés sous la 
fonne d'un ruban de code barre. 
Le lecteur lit ce code et le 
retranscrit dans l'ordinateur. Son 
prix n'est que de 199 dollars, et il 
suffit de 30 millisecondes pour 
lire un ruban. Les éditeurs 
américains étudient la possibilité 
de publier leurs prograrames sous 
cette forme dans leurs revues : 
plus besoin d'acheter les 
disquettes, ni d'entrer les données 
au clavier. On rêve déja de livres 
d'école comportant des "soft 
strips”. 


Logiciels : à 
l'Ouest du 
nouveau 


Voici en effet une avalanche de 
nouveaux logiciels venus des 
États Unis. Pour l'Apple // 
d'abord avec Catalyst 3,0. Ce 
logiciel permet d'installer des 
logiciels protégés sur un disque 
dur et de passer de l'un à l'autre. 
Le voici désormais distribué par 
Apple etlivré en version souris et 
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graphique, utilisable avec le 
nouvel Unidisk de 3,5 pouces. 
Une impression : il ressemble 
bigrement au fameux MouseDesi 
de Version Soft. Serait-ce donc le 
même produit sous un autre 
nom ? 

Voici ensuite, réservéeauxinitiés 
la version 6.0 de Locksmith 
d'Alpha Logic. Copie rapidc en 
huit secondes seulement... 

Voici enfin Fantavislon de 
Broderbund. Un extraordinaire 
logiciel de création de dessins 
animés. La seule méthode pour 
donner de la vie à un dessin. On 
le dessine, et il s'anime, les 
ombres s'ajoutent, on le fait 
bouger sur l'écran. Fantavision 
pennet d'importer des écrans 
haute résolutions d'autres 
programmes. 


En France aussi 


En Frarie, aussi, les créateurs de 
logiciels pour Apple // ont mis la 
main au clavier. L'un d'eux, MG 
Informatique, propose un 
additif s'installant sur 
Appleworks et permettant de 
l'utiliser avec une souris. Un 
autre, Priam, propose un 
traitement de texte baptisé Saphir 
intégrant des fonctions 
mathématiques et des calculs 
conditionnels, permettant de 
travailler simultanément sur deux 
documents, d'obtenir une double 
justification avec césure 
automatique et de visualiser le 
document finai. Le tout pour 
moins de 2 000,00 F avec en 
prime mailing mulcritèrc et 
pee une manière d'exploit. 
nfin, VersionSoft, qui a 
fusionné avec Controle X, 
propose une rafale de nouveaux 
logiciels Version Teil, 
permettant de transformer en 
Minitel un Apple // équipé d'un 
modem (650,00 F), Arcane, 
pour prédire l'avenir (680,00 F) 
ct pour les enfants des Puzzles et 
des Colorlages (360,00 F 
chaque). 
Pour les professionnels du 
bâtiments, Architrion de 
Gimeor permet de créer des 
objets en trois dimensions. Dans 
chaque bloc, on peut créer des 
ouvertures et y insérer des 
huisseries, etc. Ce logiciel 
spécialement étudié pour les 
professionnels du bâtiment a été 
primé par l'Agence de 
l'Informatique et le Ministère de 
l'Urbanisme. Pix : 15 000,00 F. 
Ce n'est pas donné. 


Nouveautés pour 


le 
Mac 


Avec pour ceux qui utilsent le 
Macintosh comme outil de 
publication, de nouvelles versions 
des logiciels d'édition : Ready 
Set Go version 2,0 distribué 
par B1P, et Mac Editeur 2,0 
distribué par Feeder. Tous 
permettent désormais d'importer 
des textes saisis avec un 
traitement de texte comme 
Macvwiite ou Word. 


Au rayon des uiilitaires, Disk 
Ranger de Mainstay, 
permetant de réaliser facilement 
des étiquettes pour les disques, et 
de se constituer un catalogue (pr x 
: 50 dollars). Et surtout Tempo, 
d'Affinity, un éditeur de 
macros, permettant d'automatiser 
des commandes, en prévoyant des 
pauses pour les entrées de textes, 
la création de zones de dialogue, 
des branchements logiques, ete. 
pour 99 dollars. Une seule 
commande à effectuer, et 
l'ordinateur prélèver des 
informations dans un progamme, 
les inclut dans un tableur, les 
compare aux mêmes résultats 
d'une période précédente, en fait 
un graphique et expédie le tout 
modem à un analyste... De 
Vendée, arrive une comptabilité 
générale simple : Mélusine de 
Brocéllande. 

Pour les professionels de la 
chimie voici Mac Chemistry de 
Fortnum Software compoitant 
des ülustrations, un attiral de 
laboratoire permetant de réaliser à 
l'écran des titrages d'acides et 
bases, un utilitaire pour effectuer 
des annotations et une table 
périodique de références. Prix : 
145 dollars. 


Des jeux pour le 
Mac 


Le Mac peut aussi être un objet 
futile. La preuve : MacInooga 
Choo Choo de Fortnum 
Software. Réinventer le train 
électrique sur micro, il fallait le 
faire non ? C'est fait. Avec ce 
progamme permettant de dessiner 
un Circuit ferré avec Werrains, rails, 
aiguillages et d'y faire circuler des 
trains. N'est ce pas le journaliste 
Daniel Garric qui a dit que la 
micro infonnatique était le train 
électrique des adultes des années 
1980 ? Prix 39 dollars. Wizardry 
était l'un des best sellers des jeux 
d'aventure pour l'Apple //. Le 
voici désormais pour le Mac : 
c'est Mac Wizardry de Sir 
Tech. Prix 60 dollars. 
Strategic Conquest de PBI est 
un jeu de simulation de guerre 
comprenant 15 niveaux de 
difficultés et deux milliards de 
cartes du monde possible. Déja vu 
de Mindscape est un jeu 
d'aventure mélangeant texte et 
graphique. Deluxe Music 
Construction Set d'Electro- 
alc Arts est l'un des plus 
sophistiqués des programmes 
permettant de faire de la musique 
sur le Mac. Quant à Enchanted 
Scepters de Silicon Beach 
Software, c'est un classique jeu 
d'aventure mélangeant texte et 
graphiques, mais y ajoutant des 
éléments sonores inédits. A noter 
enfin un remarquable jeu de 
boxe: Silerra Boxing 
Champion- ship de Sierra On 
Line. On peut jouer contre 
l'ordinateur en choisisant son 
adversaire parmi une kyrielle de 
grands boxeurs. On peut aussi les 
faire jouer entre eux, el organiser 
un championnat avec Cassius 
Clay. Le jeu a été réalisé par 
d'authentiques spécialistes, et les 


boxeurs ont les caracténstiques de 
leurs vrais modèles. 
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Applied Engineering 
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Tél aux USA : 1.800 722 6263 


Roger Coats 
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Cauzin Systems 
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P.0. Box 261430 San Diego CA 
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Courrier des Lecteurs 


Olivier Herz, Alexandre Avrane, Bruno Fénart 


Voici deux petits programmes 
Basic pour recopier sur 
imprimante les écrans texte 40 ou 
80 colonnes. Lors de la mise au 
point de programmes, ils peuvent 
rendre des services : il n'est alors 
pas nécessaire de se préoccuper 
immédiatement des éventuelles 
questions de compatibilité des 
routines en assembleur (HCT. 
OBJ déjà parue dans Pom's, par 
exemple). 


Programme COPIE40 


10 PRINT CHR$ (4);"PR#1": 
FOR Y = 1 TO 24: FOR X = 
1 TO 40:A$ = CHR$ ( SCR 
NH = 1,2% (= T} il + 
(16 ©. SERN( X = 1,2 # 
Y - 1) +1))):B$ = B$ + 
AS: NE XT X: PRINT B$:B$ 
= "Ms NEXT Y: PRINT CHR 
$ (4); "PR#0" 


Programme COPIE80 


10 PRINT CHRS (4);"PR#l": 
POKE - 16383,0: FOR Y = 
1 TO 24: FOR X = 1 TO 40 
: POKE - 16299,0: GOSUB 
20: POKE - 16300,0: GOS 
UB 20: NEXT X: PRINT B$; 
:B$ = ""; NEXT Y: POKE - 
16384,0: PRINT CHRS (4) 
; "PR#3": END 

20 AS = CHRS ( SCRN( (X - 
1),2 * (Y = 1)) + (16 * 
SGEN (X = 1),2 A0 ft. 1 
) + 1))):B$ = B$ + AS: R 
ETURN 


J-M Roulon, Les Cayes sous 
Bois 








À vendre 2 Apple !!} (128K0o et 
256Ko) avec deux lecteurs 
chacun. Parfait état de marche et 
prix intéressant. Cause : achat 
Macintosh. Contacter M. Claude 
Lamoureux au (1) 46.87.26.12. 





Message à Yves Martin 


Vous nous avez annoncé 
votre déménagement. Si 
vous n'avez pas reçu notre 
lettre, prière de nous 
contacter. 


Le programme ‘Gestion de 
fenêtres" souffre de quelques 
défauts de jeunesse. Tout 
d'abord, deux erreurs typo- 
graphiques : 

&C NF, MG, MD, MA, MB (CH) en 
mode création et 


& LET NV, VT.-HT, EN,;°NI, (IL) 
pour les menus (signalé dans 
Pom's 21). 

J'ai constaté que le caractère 
délimiteur défini lors de la 
création d'une fenêtre n'était pas 
sauvegardé. Je vous propose 
donc ci-dessous une petite 
modification au prograrune : 


La méthode est La suivante : 


]BLOAD WIND@W 
ICALL -151 
*8A00:00 89 
*8E78:4C 48 89 
*8F66:4C 23 89 
*8F70:4C 23 89 
*8784:4C 2C 89 
*905D:4C 3A 89 


Entrer le listing ci-dessous : 
*8900:4C EE 89 C6 20. 


Puis sauvegarder le nouveau code 
objet : 


BSAVE WINDOW,A$8900,L$0DO0 


Patch WINDOW LAHY 


8900-  1C EE 89 JMP  $89EE 
8903- C6 20 DEC 520 
8905-  E6 21 INC  $21 
89307-  E6 21 INC  $21 
8909- C6 22 DEC  $22 
8908- EG 23 INC $23 
890D- 60 RTS 

890E- E6 20 INC 520 


8910- C6 21 DEC  $21 
8912- C6 21 DEC $21 
8914- E6 22 INC $22 
8916- C6 23 DEC 523 
8918- 60 RTS 

8919- 20 0E 89 JSR $890E 
891C- 20 9E 68D JSR S8D9E 
891F- 60 RTS 

8920-  EA NOP 

8921- FA NOP 

8922- EA NOP 

8923- 20 03 89 JSR $8903 
8926- 20 F1 8 JSR $8EF1 
8929- 4C 73 8F JMP $8F73 
892C- AD 4E 8A LDA $8A4E 
892F- F0 03 BEQ $8934 
8931- 20 OE 89 VSR $890E 
8934- 20 9E 8D JSR S$S8D9E 
8937- 4C 87 8F JMP  $8Fr87 
893A- AD 4E 8A LDA $8A4E 
893D- FO 03 BEC 58942 
893F- 20 CE 89 JSR $890E 
8942- 20 9E 8D JSR $8D9E 
8945- 4C 60 90 JMP 59060 
8948- AD 53 8A LDA S8A53 
894B- C9 03 CMP  #503 
894D- 90 11 BCC $8960 
894F- 38 SEC 

8950- AD 55 8A LDA $8A55 
8953- ED 54 8A SBC  S8A54 
8956- C9 03 CMP #$03 
8958- 90 06 BCC 58960 
895A- AD 54 8A LDA $8A54 
895D- 4C 7B 8E JUMP  S$8E7B 
8960- 4C BO 8E JMP $8EB0 


Claude LAHY, Ville juif 


Icare.….. 


En plus des précisions apportées 
dans le courrier des lecteurs du 
Pom's 19, je voudrais apporter 
les précisions suivantes : 

* &PROUT x envoie le code 
ASCII x, x pouvant être 
supérieur à 128 contrairement à 


CHRS$(x)... Pratique pour 
commander l'imprimante. 
Exemple : 


&PROUT27,52, "TOTO" : &PROUT2Z 
7,53,"toto" donne sur une 
Epson : 

TOTOtoto 
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+ Le curseur vraiment bizarre de 
HGR PRINT peut-être corrigé 
par le patch suivant : 


8ES1: E6 4E BO 11 E6 4F Bl 
26 49 FF 91 26 B1 28 AA A5 


1F 91 28 86 1r A2 00 CA DO 
FD EA EA EA 2C 00 CO 10 DE 


Pascal Cantot, La Courneuve 





La 36ème piste, suite. 


Une précision sur l'article de B. 
Toméno du Pom's 21 : 

La modification indiquée ne suffit 
pas pour que le DOS utilise les 
secteurs libérés sur la piste $11. 
Heureusement, seul un petit patch 
du DOS est nécessaire. À l'aide 
de votre éditeur de secteur 
préféré, il convient de modifier 
l'octet $92 du secteur 1 de la piste 
2 : mettre $A9 au lieu de $69. Au 
niveau de l'assembleur, cela 
revient à remplacer en $B291 : 


ÊLC pæ CIC 
ADC #$11 LDA #$11 
STA  $B3EB STA $B3EB 


Le code original ajoute à $11 la 
valeur du déplacement (+1 ou -1) 
pour passer à la piste suivante. 
Selon le sens, on commençait 
donc en piste $12 ou $10. Le 
patch permet de commencer en 


$11 


Un second point : pourquoi se 
limiter à 36 pistes ? Mon 
Duo-disk en tolère très bien 40. 
Pour essayer, il suffit de faire : 

CALL -151 

BEFE:28 

INIT HELLO 


G. Jacquet, Chatillon la Palud 





Encore un mot sur la saisie de 
date en Pascal {par Eric Pascual, 
Pom's 16 page 53) ! Pour 
l'utiliser avec Pascal 1.2, la 
constante ADRDATE doit être: 

e -2]252 avec la version 64Ko 

+ -]8342 avec la version 128Ko 
Reportez-vous à la lettre de 
Christian Bellot (Pons 18, page 
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77), pour les autres détails 
d'implantation. 


Voici par ailleurs un petit patch 
permettant aux possesseurs de 
compatibles Apple !! (genre 
Franklin ou Basis 108) de charger 
ProDOS. En effet, celui-ci vérifie, 
au moment du chargement, le type 
d'Apple utilisé et, dans le cas qui 
nous intéresse ici, refuse de 
poursuivre le boot. Il faut 
rechercher les codes suivants, à 
l'aide d'un éditeur de secteurs, 
puis les modifier : 


LDX $FBB3 (AE B3 FB) devient 
LDX #SEA, NOP (A2 EA EA) 


ABC #S0B, BNE +5 (69 @B BO 
03) devient ADC #$63, NOP, 
NOP (69 O0B EA EA) 


Ce patch ne fonctionne pas sur 
certains logiciels (comme 
AppleWorks) qui tentent, 
indépendemment de ProDOS, de 
déterminer s'il s'agit d'un {le ou 
lc. 


Hubert L'HOPITAL, 93300 
Aubervilliers 


Merci pour ces informations ! 


Je possède un Apple !/!e avec une 
carte 80 colonnes et un lecteur de 
disquettes. J'ai essayé de 
convertir des programmes DOS 
3.3 en ProDOS avec l'utilitaire 
CONVERT fourni par Apple. 
Malheureusement, il me faudrait 
deux lecteurs. Comment faire ? 


Olivier Sonderer, 30490 Mon rin 


Trois solutions possibles: 


+ La plus facile : un grand 
sourire à votre distributeur pour 
qu'il vous laisse convertir vos 
programmes dans sa boutique en 
une après-midi. 

+ La plus compliquée : vous 
chargez le programme de 
conversion paru dans Pom's 16, 
en soitez par la troisième option et 
vous obtenez ainsi le DOS 3.3 et 
ProDOS simultanément actifs en 
mémoire ; il ne reste qu'à chargez 
et sauvez individuellement chacun 
de vos fichiers. 


+ La plus rapide: vous exécutez 
le programme d'initialisation 
d'une disquette mixte DOS 
3.3/ProDOS (Pom's 18) ; la 
conversion est alors réalisée en 
trois étapes : alimentation de la 
disquette par FID, conversion des 
fichiers par CONVERT, puis 
transfert de ceux-ci par FILER 
vers la disquette définitive. 





Est-il possible de sortir, sur écran 
ou imprimante, des fichiers 
source de programmes en 
assembleur quand onne possède 
ni l'assembleur idoine, ni de 
traitement de texte ? 


Philippe DEMERAUX, 43360 
ARVANT 


° L'affichage des sources 
d'assembleurs est possible sous 
ProDOS par la commande 
additionnelle TDUMP (Pom's 
20), 

+. Sous DOS 3.3, les sources 
stockés sous fonne de fichiers 


TEXT sont accessibles par le 
TDUMP/DOS 3.3 (Pom's 12). 


+ S'ils sont stockés sous forme 
de fichiers binaires (par exemple 
Big Mac ou Merlin), il est 
nécessaire de patcher le DOS pour 
qu'il autorise la lecture : 


A7C9- AND #$7F (29 7F) 
devient LDA #$00 (A9 O0) 


c'est à dire : POKE 42953,169 : 
POKE 42954,0 


+ En revanche les fichiers de 
Lisa, stockés sous un format très 
particulier du DOS 3.3, et de plus 
encodés (les instructions sont 
conservées sous forme de tokens, 
comme le fait l'Applesoft), sont 
alors inaccesibles. 

Un simple PR#1 permet de sortir 
sur imprimante. 





EDIGRAPH (Pom's 21) 


Lorsque vous bootez sur la disquette Pom's 
n' 21, faites CTRL-C dès la mise en route pour 


que le 'LOMEM:' du HELLO ne soit pas 
exécuté. 
Ainsi, vous pourez faire : 
RUN EDIGRAPH 


sans obtenir un cruel Out Of Memory Error. 
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Bon de commande 


Disquettes 


HAIFA source {cf. Pomsn° 5) 55,00 F 
(cf. Pom's n° 8) 150,00 F 
(cf. Pom's n° 10) à 80,00F 
(cf. Poms n°11) 

(cf. Pom's n° 13) 
(cf. Pom's n° 15) 
(cf. Pom's n° 15) 
(cf. Pom's n° 18) 
(cf. Pomn's n° 19) 
(cf. Pom's n° 21) à 200,00 F 
(cf. Pomsn‘2]i) à 200,00F 
(cf. Pom's n°21) à 150,00 F 


Recueils 


N°1, recueil des revues 1 à 4 à 140,00 F 
Disquettes d'accompagnement 1 à 4 à 150,00 F 
N°2, recueil des revues 5 à 8 à 140,00 F 
Disquettes d'accompagnement 5 à 8 ; à 190,00 F 


Revues, disquettes 


Revues 4 7 8 à 35,00F 
Revues 9 10 11 12 13 14 15 16 17 18 19 20 21 22 à 40,00F 
Disquettes ‘Apple IX, /e, /{c 
P2,3 4 %: 6 ‘7. 8 9 410 11 12 55,00 F 
13 14 15 16 17 18 19 20 21 22 


Disquettes Macintosh 
14/15/16 groupées 150,00 F 


17 18 19 20 21 22 à 80,00F 
Mac ‘A? à 80,00F 


Abonnements Pour 6 numéros à partir du “ER 


Abonnement à la revue seule à 200,00F 
Abonnement revue + disquettes Apple II, //e, //c à 480,00 F 
Abonnement revue + disquettes Macintosh à 600,00 F 


Total TTC : 


Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS ME V, 64 rue des Chantiers 78000 VERSAILLES 


JET 61 ee 


Adresse : 


Imprimerie Rosay. 94300 Vincennes.Imprimé en France. Dépôt légal : Janvier 1986. N° 5268 





74 Porn's n° 22 





” La Revue des Macintosh 





|BON DE COMMANDE 


à retourner à INFOMA6, S place du Colonel Fabien, 75491 Paris cedex 10 
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